点击Listview列头排序

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   ListView1.Sorted = True
   ListView1.SortKey = ColumnHeader.Index - 1
   If ListView1.SortOrder = lvwAscending Then
        ListView1.SortOrder = lvwDescending
   Else
        ListView1.SortOrder = lvwAscending
   End If
End Sub