Public Class Comparer(Of T)
		Implements IComparer(Of T)
 
		Private _sortProperties() As Reflection.PropertyInfo
		Private _sortDescendings() As Boolean
 
		Public Sub New(ByVal sortFieldName As String, ByVal sortDescending As _
		  Boolean)
			ReDim _sortProperties(0)
			ReDim _sortDescendings(0)
			_sortProperties(0) = GetType(T).GetProperty(sortFieldName)
			_sortDescendings(0) = sortDescending
		End Sub
 
		Public Sub New(ByVal sortFieldNames() As String, ByVal sortDescendings() As _
		Boolean)
			If sortFieldNames.Length <> sortDescendings.Length Then Throw New _
  System.Exception("Invalid parameters")
 
			ReDim _sortProperties(sortFieldNames.Length - 1)
			Dim i As Integer = 0
			For Each sfn As String In sortFieldNames
				_sortProperties(i) = GetType(T).GetProperty(sfn)
				i += 1
			Next
			_sortDescendings = sortDescendings
		End Sub
 
		Public Function Compare(ByVal x As T, ByVal y As T) As Integer Implements _
		  System.Collections.Generic.IComparer(Of T).Compare
			Dim res As Integer
			Dim sortDescending As Boolean
			Dim i As Integer = 0
			For Each sortProperty In _sortProperties
				sortDescending = _sortDescendings(i)
				i += 1
				Dim Wert1 As IComparable = CType(sortProperty.GetValue(x, Nothing),  _
				IComparable)
				Dim Wert2 As Object = sortProperty.GetValue(y, Nothing)
				res = Wert1.CompareTo(Wert2)
				If res <> 0 Then Exit For
			Next
			If sortDescending Then Return -res
			Return res
		End Function
	End Class

lo.Sort(New Comparer(Of WKZ_Magazin)(New String() {"T_Name", "T_Num"}, New _
  Boolean() {False, 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