Ordenar listview por cabecera en vb 6.0

[lokoman]

Hola!
Este CODE te puede ayuar:

Código vb:

'ORDENAR LISTVIEW
 
Private Sub LISTVIEW_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    Ordenar_ListView LISTVIEW, ColumnHeader
End Sub
  
Sub Ordenar_ListView(lsvListView As ListView, ColumnHeader As MSComctlLib.ColumnHeader)
    With lsvListView
        .SortOrder = (.SortOrder + 1) Mod 2
        .SortKey = ColumnHeader.Index - 1
        .Sorted = True
    End With
End Sub