如何实现DragDrop功能

Question

Private Sub Form_Load()
    Command1.DragMode = 1
    'Set Command1.DragIcon = IL.ListImages.Item(2).Picture
End Sub
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
    Source.Move (X - Source.Width \ 2), (Y - Source.Height \ 2)
End Sub只要你在form1上面加一个command1控件，运行，你拖拉一下command1控件就可以看得见效果了

Answer 1

拖拉已搞定，我只是要改变控件坐标而已。
就是有一个问题，我把一些控件放在一个Frame中，如何锁定鼠标位置，使其不能在Frame以外的区域活动？通过API函数可以锁定鼠标位置，请高手指点