Structure PrototypeDaten
        Public Counter As Integer
        Public Traffic As Long
        Public StartTime As Date
        Public StopTime As Date
        Public Name As String
    End Structure
 
    Private Class ComparePrototypeDaten
        Implements IComparer
        Private _field As String
        Private _desc As Integer
 
        Public Sub New(ByVal field As String, ByVal desc As Boolean)
            _field = field
            _desc = IIf(desc, -1, 1)
        End Sub
        Public Function compare(ByVal a As Object, ByVal b As Object) As _
          Integer Implements IComparer.Compare
            Dim a1 As PrototypeDaten = CType(a, PrototypeDaten)
            Dim b1 As PrototypeDaten = CType(b, PrototypeDaten)
 
            Select Case _field
                Case "Counter"
                    Return _desc * a1.Counter.CompareTo(b1.Counter)
                Case "traffic"
                    Return _desc * a1.Traffic.CompareTo(b1.Traffic)
                Case "StartTime"
                    Return _desc * a1.StartTime.CompareTo(b1.StartTime)
                Case "StopTime"
                    Return _desc * a1.StopTime.CompareTo(b1.StopTime)
                Case "Name"
                    Return _desc * a1.Name.CompareTo(b1.Name)
            End Select
        End Function
    End Class
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim apd(3) As PrototypeDaten
        Dim desc As Boolean = False
 
        apd(0) = New PrototypeDaten
        apd(0).Counter = 33
        apd(0).StartTime = Now.AddHours(1)
        apd(0).Name = "FFFF"
 
        apd(1) = New PrototypeDaten
        apd(1).Counter = 14
        apd(1).StartTime = Now.AddHours(-1)
        apd(1).Name = "AAAA"
 
        apd(2) = New PrototypeDaten
        apd(2).Counter = 19
        apd(2).StartTime = Now
        apd(2).Name = "HHHH"
 
        apd(3) = New PrototypeDaten
        apd(3).Counter = 17
        apd(3).StartTime = Now.AddMinutes(30)
        apd(3).Name = "BBBB"
 
        papd(apd)
 
        Array.Sort(apd, New ComparePrototypeDaten("Counter", desc))
        papd(apd)
 
        Array.Sort(apd, New ComparePrototypeDaten("StartTime", desc))
        papd(apd)
 
        Array.Sort(apd, New ComparePrototypeDaten("Name", desc))
        papd(apd)
 
    End Sub
 
    Private Sub papd(ByVal apd() As PrototypeDaten)
        For Each pd As PrototypeDaten In apd
            Debug.WriteLine("Counter: " + pd.Counter.ToString() + " StartTime:" & _
              "" + pd.StartTime.ToString() + " Name: " + pd.Name)
        Next
        Debug.WriteLine( _
          "******************************************************")
    End Sub