Private Sub Command1_Click() Image1.Height = Image1.Height + 100 Image1.Width = Image1.Width + 100 End Sub Private Sub Command2_Click() Image1.Height = Image1.Height - 100 Image1.Width = Image1.Width - 100 End Sub
Private Sub Command1_Click() Image1.Top = Image1.Top + 100 End Sub Private Sub Command2_Click() Image1.Top = Image1.Top - 100 End Sub Private Sub Command3_Click() Image1.Left = Image1.Left + 100 End Sub Private Sub Command4_Click() Image1.Left = Image1.Left - 100 End Sub