Visual Basic

Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown<br />
    Dim item As Integer<br />
    For j As Integer = 1 To ListBox1.Items.Count<br />
        Dim rect As System.Drawing.Rectangle = ListBox1.GetItemRectangle(j - 1)<br />
        If rect.Contains(e.X, e.Y) Then<br />
            item = j - 1<br />
            Exit For<br />
        End If<br />
    Next<br />
    ListBox1.SelectedIndex = item<br />
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim items As Integer
    Dim averageHeight As Integer
    items = 14
    averageHeight = List1.Height / items
    For i = 1 To items
        If Y > (((i - 1) * averageHeight) + 1) And Y < (i * averageHeight) Then
            List1.ListIndex = i - 1
        End If
    Next
    If Button = 2 Then
        Form1.PopupMenu rclOne
    End If
End Sub

Public Sub HighlightColor()
    Dim i As Integer
    For i = 1 To Range("MyRange").Rows.Count
        If Not (Cells(i, 8).Value <= Cells(i, 9).Value And Cells(i, 9).Value <= Cells(i, 10).Value) Then
            Cells(i, 9).Font.ColorIndex = 3     ' Red
        End If
    Next
End Sub

<br />
 'Now set the combo to show the propDB stored in the .ini file<br />
    For i = 0 To cmbPropDB.ListCount<br />
        If cmbPropDB.List(i) = gstrPropDB Then<br />
            cmbPropDB.ListIndex = i<br />
            Exit For<br />
        End If<br />
    Next i<br />