给listview列头进行排序

在vb中，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