Sort listview by column

If i use this,

VB Code:

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView1.Sorted = True
If ListView1.SortOrder = lvwDescending Then
ListView1.SortOrder = lvwAscending
Else
ListView1.SortOrder = lvwDescending
End If
End Sub

it sorts the whole listview according to the first column. How do i get it to sort with regard to the actual column clicked?

Edit : made a mistake there, it sorts each column accordinly. How do i get it to sort just the column thats clicked ?