Private Sub CommandButton1_Click()
With Me
.Height = .Height * 1.1
.Width = .Width * 1.1
.Zoom = .Zoom * 1.1
End With
End Sub
Private Sub CommandButton2_Click()
With Me
.Height = .Height / 1.1
.Width = .Width / 1.1
.Zoom = .Zoom / 1.1
End With
End Sub