参考答案

Private Sub Command1_Click()
    Command1.Left = Command1.Left - 100
    Command1.Top = Command1.Top - 30
'或    Command1.Left = -100 + Command1.Left
'      Command1.Move Command1.Left - 100
'      Command1.Move -100 + Command1.Left
End Sub