'die List of definieren
Dim OpListItemContol As New List(Of Link_Label)
 
'Klassendefinition
Public Class Link_Label
    Private _meinPicbox As PictureBox
    Private _meinLabel As Label
    Public Property meinPicbox() As PictureBox
        Get
            Return _meinPicbox
        End Get
        Set(ByVal Value As PictureBox)
            _meinPicbox = Value
        End Set
    End Property
    Public Property meinLabel() As Label
        Get
            Return _meinLabel
        End Get
        Set(ByVal Value As Label)
            _meinLabel = Value
        End Set
    End Property
    Public Sub New()
    End Sub
End Class
 
'Sortierung
OpListItemContol.Sort(New Comparer(Of Link_Label)("meinLabel", False))
 
'Comparer-Klasse
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

Dim Wert1 As IComparable = CType(sortProperty.GetValue(x, Nothing), IComparable)

Grüße Andi