Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
  Implements System.Collections.IComparer.Compare
 
        Dim compareResult As Integer
        Dim listviewX As ListViewItem
        Dim listviewY As ListViewItem
 
        listviewX = CType(x, ListViewItem)
        listviewY = CType(y, ListViewItem)
 
        compareResult = ObjectCompare.Compare(listviewX.SubItems( _
          ColumnToSort).Text, ListviewY.SubItems(ColumnToSort).Text)                
 
        If (OrderOfSort = SortOrder.Ascending) Then
             Return compareResult
        ElseIf (OrderOfSort = SortOrder.Descending) Then
            Return (-compareResult)
        Else
            Return 0
        End If
 
End Function