Dim MyListView As ListView
Dim List1 As List
list1.Initialize
For l = 0 To 100
list1.Add("Your data here.." & (100-l)) 'Data and number high to low
Next
list1.Sort(True) 'puts them in order low to high
For l = 0 To 100
MyListView.AddSingleLine(list1.Get(l))
Next
'Your listview is now sorted