Visual Basic

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    daStates.Fill(dsStates, "States")
    cbStates.SelectedValue = "CA"
End Sub

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