在窗体上放一个Label和两个ListBox,Label背景设置为透明,Caption="",DragIcon设置一个合适的图标。
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If List1.ListIndex < 0 Then Exit Sub
If Button = vbLeftButton Then
Label1.Move X, Y
Label1.Drag
End If
End Sub
Private Sub List2_DragDrop(Source As Control, X As Single, Y As Single)
List2.AddItem List1.List(List1.ListIndex)
End Sub