Public Class myMabLoginComparer
        Implements IComparer
        Public Function Compare(ByVal x As Object, ByVal y As Object) As _
          Integer Implements IComparer.Compare
            Dim Mab1 As Mitarbeiter = DirectCast(x, Mitarbeiter)
            Dim Mab2 As Mitarbeiter = DirectCast(y, Mitarbeiter)
            Return String.Compare(Mab1.Login, Mab2.Login)
        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