私有子Command1_Click()
Command1.Left = Command1.Left Val(Text1.Text)
结束子
私有子Command2_Click()
Command2.Top = Command2.Top Val(Text2.Text)
结束子
私有子 Command3_Click()
Command3.Left = Command3.Left Val(Text1.Text)
Command3.Top = Command3.Top Val(Text2.Text)
End Sub