方一:用Left或Top属性分别控制控件的左边距和上边距,命令按钮C1,如C1.Left=C1.Left+a(若a<0则往左移,反之右移)方二:先将C1的DragMode改为1,再在窗体DragDrop事件中写Source.Move X,Y
向右移动300的代码:
Private Sub Command1_Click()
Command1.left=Command1.left+300
End Sub
向下移动300的代码:
Private Sub Command1_Click()
Command1.top=Command1.top+300
End Sub
用move函数