Public Class clsAufgabe
    Dim _Aufgabentyp As String, _Position As Integer
 
    Public Sub New(ByVal Aufgabentyp As String, _
        Optional ByVal Position As Integer = -1)
        _Aufgabentyp = Aufgabentyp : _Position = Position
    End Sub
 
    Public ReadOnly Property Aufgabentyp As String
        Get
            Return _Aufgabentyp
        End Get
    End Property
 
    Public Property Position As Integer
        Set(ByVal value As Integer)
            _Position = value
        End Set
        Get
            Return _Position
        End Get
    End Property
 
    Public Shared Function CompareAufgabenPosition _
         (ByVal a As clsAufgabe, ByVal b As clsAufgabe) As Integer
        If a.Position < 0 Or b.Position < 0 Then
            Throw New InvalidOperationException _
              ("Eine Aufgabenposition ist nicht definiert")
        End If
        If Not a.Equals(b) AndAlso a.Position = b.Position Then
            Throw New InvalidOperationException _
               ("Eine Aufgabenposition ist nicht eindeutig")
        End If
        Return a.Position.CompareTo(b.Position)
    End Function
End Class

'Aufgabenliste erstellen
Dim positionsliste As New System.Collections.Generic.List(Of Integer)
Dim AufgabenAnzahl As Integer = 100
For i As Integer = 1 To AufgabenAnzahl : positionsliste.Add(i) : Next i
 
Dim rndm As New System.Random(12345)
For i As Integer = 1 To AufgabenAnzahl
    'Eindeutige, aber zufällige Positionsnummer abfragen
    Dim index As Integer = rndm.Next(0, positionsliste.Count)
    aufgabenliste.Add _
    (New clsAufgabe("Aufgabe " + CStr(i), positionsliste(index)))
    '... den verwendeten Index aus der Indexliste entfernen
    positionsliste.RemoveAt(index)
Next i
 
'Zwei Aufgabenpositionen tauschen
Dim pos1, pos2 As Integer
pos1 = 40 : pos2 = 60
Dim interpos = aufgabenliste(pos1).Position
aufgabenliste(pos1).Position = aufgabenliste(pos2).Position
aufgabenliste(pos2).Position = interpos
 
'Aufgabenliste anzeigen
DataGridView1.DataSource = aufgabenliste
 
'Aufgabenliste nach Position kontrolliert sortieren
Try
   aufgabenliste.Sort(AddressOf clsAufgabe.CompareAufgabenPosition)
Catch ex As Exception
   MsgBox(ex.Message)
End Try
 
'Sortier-Ergebnis überprüfen
For i As Integer = 1 To aufgabenliste.Count - 1
   If aufgabenliste(i - 1).Position > aufgabenliste(i).Position Then
      MsgBox("Sortierfehler!!")
   End If
Next i