Odenar las columnas de listview

Max
27 de Marzo del 2004
¿Como puedo hacer para que al clikear sobre el header de un listview me ordene el listview por esa misma columna?

argato
27 de Marzo del 2004
Private Sub lvwArti_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
lvwArti.SortKey = ColumnHeader.Index - 1
If lvwArti.SortOrder = lvwAscending Then
lvwArti.SortOrder = lvwDescending
Else
lvwArti.SortOrder = lvwAscending
End If
End Sub

Espero que te sirva