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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de