移动什么呢,怎么移动。问题不清楚
如果是一张图片的话,左右就是picture1.left=picture1.left - int(text1.txt)
若果要渐渐移动就在加个时钟,用时钟一点的移动,直到达到text1的值
Private Sub Command1_Click()
Form1.Left = Form1.Left + Val(Text1.Text)
End Sub
Private Sub Command2_Click()
Form1.Top = Form1.Top + Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Form1.Left = Form1.Left + Val(Text1.Text)
Form1.Top = Form1.Top + Val(Text2.Text)
End Sub