vb鼠标拖动事件代码

在VB中，如何编写按下鼠标左键将FileListBox中相应的文件拖到list中的代码
图片说明：
http://www.ishare.com.cn/d/1743130-1/image001.png
问题补充：希望能提供代码，谢谢
Option Explicit
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 24
List1.AddItem i
List2.AddItem i + 25
Next
List1.DragMode = 0
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
List1.Drag 1
End Sub

Private Sub List2_DragDrop(Source As Control, X As Single, Y As Single)
If Source = List1 Then
List2.AddItem List1.List(List1.ListIndex)
List1.RemoveItem List1.ListIndex
End If
End Sub

vb鼠标拖动事件代码 VB picturebox控件的拖动事件. vb鼠标事件 VB鼠标MOUSEMOVE事件 vb 鼠标单击事件 VB右键单击事件代码 求vb锁定鼠标代码! 关于vb 的键盘鼠标事件 鼠标拖动 求VB屏蔽鼠标键盘代码