Mengubah urutan item ListBox dengan DragDrop

Buat sebuah Form dengan sebuah kontrol ListBox didalamnya. Sebagai bahan percobaan, isikan beberapa Item pada ListBox. Berikut kodenya :

Di bagian '(Declarations)' dari Form ketikkan :

Dim StartText As String, StartIndex As Integer

Di bagian 'List1_MouseDown' ketikkan :

If Button = vbLeftButton Then
StartIndex = List1.ListIndex
StartText = List1.Text
End If

Di bagian 'List1_MouseMove' ketikkan :

Dim SecondIndex As Integer

If Button = vbLeftButton And List1.ListIndex <> StartIndex Then

SecondIndex = List1.ListIndex

List1.RemoveItem (StartIndex)
List1.AddItem StartText, SecondIndex
List1.ListIndex = SecondIndex

StartText = List1.Text
StartIndex = List1.ListIndex
End If