Public Class ic
        Implements IComparer
 
        Public Function Compare(ByVal x As Object, ByVal y As Object) As _
          Integer Implements IComparer.Compare
            Dim i1 As ListViewItem = CType(x, ListViewItem)
            Dim i2 As ListViewItem = CType(y, ListViewItem)
            Return CInt(i1.SubItems(1).Text).CompareTo(CInt(i2.SubItems( _
              1).Text))
        End Function
    End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist