Visual Basic - Ordenar

Como puedo ordenar numeros en un listview ??

http://www.lawebdelprogramador.com/news/mostrar_new.php?id=93&texto=Visual+Basic&n1=447751&n2=0&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0

yo intente eso y no sirvio!

asumo que cada vez que le dez a el encabezado de la columna se ordena !? si es asi preba esto:

Private Sub LstPrecios_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Select Case ColumnHeader
Case “Encabezado de la columna que tenga los numeros”
For Ds = 1 To RgsT
LstX.ListItems.Item(Ds).SubItems(4) = String$(20 - Len(LstX.ListItems.Item(Ds).SubItems(4)), "0") & LstX.ListItems.Item(Ds).SubItems(4)
Next
If LstX.SortOrder = lvwAscending Then
LstX.SortKey = 4
LstX.SortOrder = lvwDescending
Else
LstX.SortKey = 4
LstX.SortOrder = lvwAscending
End If
For Ds = 1 To RgsT
LstX.ListItems.Item(Ds).SubItems(4) = FormatNumber(LstX.ListItems.Item(Ds).SubItems(4), 2)
Next
End Select
End Sub