Public Class Comparer(Of T)
        Implements IComparer(Of T)
 
        Private _sortProperty As Reflection.PropertyInfo
        Private _sortDescending As Boolean
 
        Public Sub New(ByVal sortFieldName As String, ByVal sortDescending As _
          Boolean)
            _sortProperty = GetType(T).GetProperty(sortFieldName)
            _sortDescending = sortDescending
        End Sub
 
        Public Function Compare(ByVal x As T, ByVal y As T) As Integer _
          Implements System.Collections.Generic.IComparer(Of T).Compare
            Dim Wert1 As IComparable = CType(_sortProperty.GetValue(x, _
            Nothing), IComparable)
            Dim Wert2 As Object = _sortProperty.GetValue(y, Nothing)
            Dim res As Integer = Wert1.CompareTo(Wert2)
            If _sortDescending Then Return -res
            Return res
        End Function
    End Class

    mylist.Sort(New Comparer(Of Clas_MP3Tag)("Spieldauer", False))

________
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