“隐藏”和“显示”，怎么让它实现左右上下移动和放大缩小[图片][图片]

只会隐藏和显示的代码，command1～6该如何写

@tbzp666 @初音✨七奈 @总裁大人👻

left、top、width、height属性

Private Sub Form_Load()
Image1.Picture = LoadPicture(App.Path & "\变形金刚.jpg")
End Sub
Private Sub Command1_Click() '↑
Image1.Top = Image1.Top - 100
End Sub
Private Sub Command2_Click() '←
Image1.Left = Image1.Left - 100
End Sub
Private Sub Command3_Click() '→
Image1.Left = Image1.Left + 100
End Sub
Private Sub Command4_Click() '↓
Image1.Top = Image1.Top + 100
End Sub
Private Sub Command5_Click() '放大
Image1.Move Image1.Left - 50, Image1.Top - 50, Image1.Width + 100, Image1.Height + 100
End Sub
Private Sub Command6_Click() '缩小
Image1.Move Image1.Left + 50, Image1.Top + 50, Image1.Width - 100, Image1.Height - 100
End Sub
Private Sub Command7_Click() '隐藏
Image1.Visible = False
End Sub
Private Sub Command8_Click() '显示
Image1.Visible = True
End Sub

左右移动是改变Left属性，左减右加
上下移动是改变Top属性，上减下加
放大就是增加Width和Height属性
缩小就是减小Width和Height属性
以左右移动为例：
Image1.Left = Image1.Left - 100 '向左
Image1.Left = Image1.Left + 100 '向右