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(x, Mitarbeiter)
        String.Compare(Mab1.Login, Mab2.Login)
    End Function
End Class
 
 
Array.Sort(Me._arMitarbeiter, New myMabLoginComparer)
            With Me.combo_Login
                .DataSource = Me._arMAB
                .DisplayMember = "Login"
            End With

Public Class myPrjNameComparer
    Implements IComparer
 
    '
    ' Kleiner als 0      x ist kleiner als y.
    ' 0                  x ist gleich y.
    ' Grösser als 0      x ist grösser als y.
    '
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
      Implements IComparer.Compare
        Dim Prj1 As Projekt = DirectCast(x, Projekt)
        Dim Prj2 As Projekt = DirectCast(x, Projekt)
        String.Compare(Prj1.Name, Prj2.Name)
    End Function
End Class
 
....
alPrj.Sort(New myPrjNameComparer)   '//arraylist
            With Me.DataGrid1
                .SetDataBinding(alPrj, "")
            End With

Micke