Private Sub listMatches_ColumnClick(ByVal ColumnHeader As ColumnHeader)
listMatches.SortKey = ColumnHeader.Index - 1 If listMatches.SortKey = LastColumnClicked Then 'is this second successive click? If listMatches.SortOrder = 0 Then 'Reverse sortorder. listMatches.SortOrder = 1 Else listMatches.SortOrder = 0 End If ' Could I use Not(listmatches.sortorder) ? End If listMatches.Sorted = True LastColumnClicked = listMatches.SortKey End Sub |