Private Sub ListView1_ColumnClick(ByVal ColumnHeader As _
  MSComctlLib.ColumnHeader)
   With ListView1
      .SortKey = ColumnHeader.Index - 1
      .Sorted = True
   End With
End Sub

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.