Public Sub SortListView(ctlListView As ListView, intColulunHeaderIndex As Integer)
ctlListView.Sorted = True ctlListView.SortKey = intColulunHeaderIndex - 1 If ctlListView.SortOrder = lvwAscending Then ctlListView.SortOrder = lvwDescending Else ctlListView.SortOrder = lvwAscending End If End Sub |