Visual Basic

Less than zero if x is less than y. <br />
Zero if x equals y. <br />
Greater than zero if x is greater than y. <br />

' Implements the manual sorting of items by columns.
Class ListViewItemComparer
   Implements IComparer

   Private col As Integer

   Public Sub New()
      columnNumber = 0
   End Sub

   Public Sub New(ByVal column As Integer)
      columnNumber = column
   End Sub

   Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
      Dim returnValue as Integer
      Dim compX as ListViewItem = CType(x, ListViewItem)
      Dim compY as ListViewItem = CType(y, ListViewItem)

      returnValue = String.Compare(compX.SubItems(columnNumber).Text, compY.SubItems(columnNumber).Text)
      Return returnValue
   End Function
End Class

' ColumnClick event handler.
Private Sub ColumnClick(ByVal o As Object, ByVal e As ColumnClickEventArgs)
   ' Set the ListViewItemSorter property to a new ListViewItemComparer object.
   ListView1.ListViewItemSorter = New ListViewItemComparer(e.Column)
   ' Call the sort method to manually sort the column based on the ListViewItemComparer implementation.
   ListView1.Sort()
End Sub

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