Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
Me.ListBox1.SelectedIndex = ListBox1.IndexFromPoint(New Point(e.X, e.Y))
End If
End Sub
|