在释放鼠标按钮后可能会希望改变源控件的位置,为把控件移动到新的位置处,应对任何已被允许拖动的控件使用Move方法。
将以下过程添加到窗体的DragDrop事件中:
Private Sub Form_DragDrop(Source As Control)
Source.MoveX, Y
End Sub