Mengurutkan ListBox Angka

Jika anda mempunyai ListBox yang berisi angka-angka dan ingin mengurutkannya (mengubah property Sorted=True), maka yang terjadi ListBox akan mengurutkan item sebagai urutan string/teks bukan sebagai angka. Berikut kode yang digunakan untuk mengurutkan ListBox yang berisi angka-angka :

[ VB 6.0 ]

Dim m As Boolean, i As Integer, s As String

Do
m = False
For i = 0 To List1.ListCount - 2

If CDbl(List1.List(i)) > CDbl(List1.List(i + 1)) Then

m = True
s = List1.List(i)
List1.List(i) = List1.List(i + 1)
List1.List(i + 1) = s
End If
Next i
Loop Until m = False

[ VB .NET ]

Dim m As Boolean, i As Integer, s As String

Do
m = False
For i = 0 To ListBox1.Items.Count - 2
If CDbl(ListBox1.Items(i)) > CDbl(ListBox1.Items(i + 1)) Then
m = True
s = ListBox1.Items(i)
ListBox1.Items(i) = ListBox1.Items(i + 1)
ListBox1.Items(i + 1) = s
End If
Next i
Loop Until m = False

CATATAN :
Kode diatas akan mengurutkan ListBox secara ascending, untuk mengurutkan secara descending, gantikan operator ">" di kode warna merah, dengan operator "<".
Pastikan semua item dalam ListBox berupa nilai angka.