参考答案

Private Sub Command1_Click()
    Image1.Left = Image1.Left + 100
'或    Image1.Left = 100 + Image1.Left
'或    Image1.Move Image1.Left + 100
'或    Image1.Move Image1.Left + 100 , Image1.Top
'或    Image1.Move 100 + Image1.Left
'或    Image1.Move 100 + Image1.Left , Image1.Top
End Sub
Private Sub Command2_Click()
    Image1.Top = Image1.Top + 100
'或    Image1.Top = 100 + Image1.Top
'或    Image1.Move Image1.Left, Image1.Top + 100
'或    Image1.Move Image1.Left, 100 + Image1.Top
End Sub