Command1.Left = Command1.Left + Val(Text1.Text)
End Sub
Private Sub Command2_Click()
Command2.Top = Command2.Top + Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Command3.Left = Command3.Left + Val(Text1.Text)
Command3.Top = Command3.Top + Val(Text2.Text)
End Sub