ordinare per una colonna di listview cliccata

[yyzyyz]

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

amodio