Public Class WKZ_Magazin
 
    Private _T_Num As String
    Private _Duplo_Num As Integer
    Private _T_Name As String
    Private _StZeitÜW As Integer
 
    Public Property T_Num() As String
        Get
            Return _T_Num
        End Get
        Set(ByVal Value As String)
            _T_Num = Value
        End Set
    End Property
 
    Public Property Duplo_Num() As Integer
        Get
            Return _Duplo_Num
        End Get
        Set(ByVal Value As Integer)
            _Duplo_Num = Value
        End Set
    End Property
 
    Public Property T_Name() As String
        Get
            Return _T_Name
        End Get
        Set(ByVal Value As String)
            _T_Name = Value
        End Set
    End Property
 
    Public Property StZeitÜW() As Integer
        Get
            Return _StZeitÜW
        End Get
        Set(ByVal Value As Integer)
            _StZeitÜW = Value
        End Set
    End Property
 
    Public Sub New()
    End Sub
 
End Class

MP3Tracks.Sort(New Comparer(Of Clas_MP3Tag)(ColumnName, False))

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

Grüße Andi