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