Private Sub ColumnSort(ByVal columnindex As Int32)
        Dim idx As Int32 = columnindex
        If Not idx = colIndex Then
            colIndex = idx
            sortord = SortOrder.Descending
        End If
        'Sortierung umkehren
        If Not sortord = SortOrder.Ascending Then
            sortord = SortOrder.Ascending
        Else : sortord = SortOrder.Descending
        End If
        Dim typ As Type = Me.GetColumnType(idx)
        Me.liv_Dateien.ListViewItemSorter = New ListViewItemComparer(idx, typ, _
          sortord)
    End Sub
    Private Function GetColumnType(ByVal idx As Int32) As Type
        'Den Type per Designer (oder per Code) in das Tag-Property des 
        ' ColumnHeader 
        'schreiben, dann kann man so drauf greifen.
        Return DirectCast(Me.liv_Dateien.Columns(idx).Tag, Type)
    End Function
End Class