Public Class Clas_MP3Tag
 
    Private _Interpret As String
    Private _TitelName As String
    Private _Spieldauer As TimeSpan
    Private _Dateipfad As String
    Private _VariableFrei2 As String
 
    Public Property Interpret() As String
        Get
            Return _Interpret
        End Get
        Set(ByVal Value As String)
            _Interpret = Value
        End Set
    End Property
 
    Public Property TitelName() As String
        Get
            Return _TitelName
        End Get
        Set(ByVal Value As String)
            _TitelName = Value
        End Set
    End Property
 
    Public Property Spieldauer() As TimeSpan
        Get
            Return _Spieldauer
        End Get
        Set(ByVal Value As TimeSpan)
            _Spieldauer = Value
        End Set
    End Property
 
    Public Property Dateipfad() As String
        Get
            Return _Dateipfad
        End Get
        Set(ByVal Value As String)
            _Dateipfad = Value
        End Set
    End Property
 
    Public Property VariableFrei2() As String
        Get
            Return _VariableFrei2
        End Get
        Set(ByVal Value As String)
            _VariableFrei2 = Value
        End Set
    End Property
 
    Public Shared SortierFeld As String = "Interpret"
    Public Shared Sortierung As SortOrder = SortOrder.Ascending
 
    Public Sub New(ByVal Interpret As String, ByVal TitelName As String, _
      ByVal Spieldauer As TimeSpan, ByVal Dateipfad As String, ByVal _
      VariableFrei2 As String)
 
        Me.Interpret = Interpret
        Me.TitelName = TitelName
        Me.Spieldauer = Spieldauer
        Me.Dateipfad = Dateipfad
        Me.VariableFrei2 = VariableFrei2
    End Sub
 
    Public Sub New()
    End Sub
 
    Public Class Comparer
        Implements IComparer
        Private _sortProperty As Reflection.PropertyInfo
        Private _sortDescending As Boolean
 
        Public Sub New(ByVal sortFieldName As String, ByVal sortDescending As _
          Boolean)
            _sortProperty = GetType(Clas_MP3Tag).GetProperty(sortFieldName)
            _sortDescending = sortDescending
        End Sub
 
        Public Function Compare(ByVal obj1 As Object, ByVal obj2 As Object) As _
          Integer Implements IComparer.Compare
            Dim Wert1 As IComparable = CType(_sortProperty.GetValue(obj1, _
            Nothing), IComparable)
            Dim Wert2 As Object = _sortProperty.GetValue(obj2, Nothing)
            Dim res As Integer = Wert1.CompareTo(Wert2)
            If _sortDescending Then Return -res
            Return res
        End Function
    End Class
End Class

Grüße Andi