Protected Overrides Sub ApplySortCore(ByVal prop As _
     System.ComponentModel.PropertyDescriptor, ByVal direction As _
     System.ComponentModel.ListSortDirection)
      Me.RaiseListChangedEvents = False
 
      sortedList = New List(Of Object)
 
      Dim interfaceType As Type = prop.PropertyType.GetInterface("IComparable")
 
      If interfaceType IsNot Nothing Then
         sortPropertyValue = prop
         sortDirectionValue = direction
 
         unsortedList = New List(Of Object)
 
         For Each item As Object In Me.Items
            sortedList.Add(prop.GetValue(item))
            unsortedList.Add(item)
         Next
 
         sortedList.Sort()
 
         Dim temp As T
 
         If direction = ComponentModel.ListSortDirection.Descending Then
            sortedList.Reverse()
         End If
 
         For i As Integer = 0 To Me.Count - 1
            Dim position As Integer = Find(0, prop.Name, sortedList(i))
 
            If position <> i Then
               temp = Me.Items(i)
 
               Me.Items(i) = Me.Items(position)
               Me.Items(position) = temp
            End If
         Next
 
         Me.RaiseListChangedEvents = True
         isSortedValue = True
 
         Call OnListChanged(New System.ComponentModel.ListChangedEventArgs( _
           ComponentModel.ListChangedType.Reset, -1))
      Else
         Throw New NotSupportedException("Es kann nicht nach " & prop.Name & "" & _
           "sortiert werden." & prop.PropertyType.ToString & " implementiert" & _
           "nicht die IComparable-Schnittstelle.")
      End If
   End Sub