vb拖动list项改变顺序

RT,求教，小弟谢过

用鼠标拖动list里的item，使它移动，来改变顺序

拖动是做不了.只能做点击改变
private ListStr1 AS STRING
Private MoveText As Boolean

Private Sub List1_Click()
If MoveText = False Then
Label1.Caption = List1.ListIndex
ListStr1 = List1.Text
List1.RemoveItem List1.ListIndex '删除当前行.
List1.Refresh '强制全部重绘一个窗体或控件
MoveText = True
Else
Select Case List1.ListIndex
Case 0
List1.AddItem ListStr1, List1.ListIndex
Case Else
List1.AddItem ListStr1, List1.ListIndex '插到当前行的前面
End Select
List1.Refresh '强制全部重绘一个窗体或控件
MoveText = False
End If
End Sub

'自己修改，给你写的最简单的，测试正常

'list1的oledragmode设为1，list2的oledrogmode设为1，它们为只读属性，运行前修改。 option explicit private sub form_load()     dim i as integer     for i = 1 to 100     list1.additem "项目" & i     next end sub private sub list2_oledragdrop(data as dataobject, effect as long, button as integer, shift as integer, x as single, y as single)     list2.additem data.getdata(1) '可加个判断，如果list2已存在当前拖拽的值忽律。 end sub