Public Class frmDGVSortComparerDemo
 
    Dim dt As New DataTable
    Dim bs As New BindingSource
 
    Dim dgv As New DataGridView With
        {.Parent = Me, .Size = New Size(300, 400)}
 
    Dim comparerlist As New List(Of String)
 
 
    Private Sub frmDGVSortComparerDemo_Load(sender As Object,
                                    e As EventArgs) Handles MyBase.Load
 
        Me.Width = 320
        Me.Height = 500
 
        'Vorgabeliste für Sortierreihenfolge
        With comparerlist
            .AddRange({"Boot", "Motorrad", "Auto", "Zug", "Laufen"})
        End With
 
        'Testdaten in Table eintragen
        dt.Columns.Add("Mobilität")
        For i As Integer = 0 To 100
            dt.Rows.Add(comparerlist(rndm.Next(comparerlist.Count)))
        Next i
 
        OrderTableRows()
 
        bs.DataSource = dt
        dgv.DataSource = bs
    End Sub
 
 
    Private Sub OrderTableRows()
 
        With dt.Rows
            Dim row As DataRow = dt.NewRow
            For i As Integer = 0 To .Count - 2
                For k As Integer = i + 1 To .Count - 1
                    Dim val_i As String = .Item(i).Field(Of String)("Mobilität")
                    Dim val_k As String = .Item(k).Field(Of String)("Mobilität")
                    Dim ind_i As Integer = comparerlist.IndexOf(val_i)
                    Dim ind_k As Integer = comparerlist.IndexOf(val_k)
                    If ind_i > ind_k Then
                        row.ItemArray = .Item(i).ItemArray
                        .Item(i).ItemArray = .Item(k).ItemArray
                        .Item(k).ItemArray = row.ItemArray
                    End If
                Next k
            Next i
        End With
        dt.AcceptChanges()
    End Sub
End Class