ListBox中拖动选项重新排序实现方法？

Question

如其中有
A
B
C
D
E
等选项，用户可采用拖动的方法改变顺序：
A
B
D
C
E
请问思路是怎样的呢？

Answer 1

呵呵，这样就可以实现：Dim temp As String, pos As Long
Private Sub Form_Load()
For i = 1 To 5
List1.AddItem Chr(64 + i)
Next
End SubPrivate Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
temp = List1.Text
pos = List1.ListIndex
End Sub
Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 List1.RemoveItem pos
 List1.AddItem temp, List1.ListIndex
End Sub