Private Sub ListView1_ColumnClick(ByVal ColumnHeader As _
  MSComctlLib.ColumnHeader)
Dim SortSpalte As Integer
 
SortSpalte = ColumnHeader.Index - 1
With ListView1
    .Sorted = True
    If .SortKey = SortSpalte Then
        .SortOrder = 1 - .SortOrder
    Else
        .ColumnHeaders(.SortKey + 1).Icon = 0
        .SortKey = SortSpalte
        .SortOrder = lvwAscending
    End If
    ColumnHeader.Icon = .SortOrder + 1
End With
End Sub