Visual Basic - Organizando por orden ascendente y descendente

tengo un listview pero me gustaria que cuando le diera a los columnheaders se organizaran por orden acendente o decendente, como hago eso?

La propiedad .Sorted = True ordena alfabéticamente según lo establecido por .SortOrder, si es 0 (predeterminado) orden ascendente, si es 1 orden descendente.
Parece que no tiene evento "HeadClick" como los DataGrid, tendrás que buscarle otra forma de mandarle que ordene.

Efectivamente el control ListView no tiene el evento "HeadClick", pero si el "ColumnClick".
Para ordenar un ListView pon este codigo:

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Dim col As Long
col = ColumnHeader.Index - 1
If ListView1.SortOrder = lvwAscending Then
ListView1.SortOrder = lvwDescending
Else
ListView1.SortOrder = lvwAscending
End If
ListView1.SortKey = col
ListView1.Sorted = True
End Sub