ListView排序有关问题

ListView排序问题?
怎么样可以实现,单击相应的标题栏,实现排序!!

[解决办法]
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView1.Sorted = False
ListView1.SortKey = ColumnHeader.Index - 1
ListView1.SortOrder = lvwAscending
ListView1.Sorted = True
End Sub

[解决办法]
Private Sub LvMain_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
LvMain.Sorted = False
LvMain.SortKey = ColumnHeader.Index - 1

If LvMain.SortOrder = lvwAscending Then
LvMain.SortOrder = lvwDescending
ElseIf LvMain.SortOrder = lvwDescending Then
LvMain.SortOrder = lvwAscending
End If

LvMain.Sorted = True
End Sub