[@@أبورائد@@]

ضع أداة Image وضع فيها أولا صورة ثم اجعل الخاصية Stretch تساوي True
وعدد2 من الأزارير

كود :

Private Sub Command1_Click()
    Me.Image1.Width = Me.Image1.Width * 0.9
    Me.Image1.Height = Me.Image1.Height * 0.9
End Sub

Private Sub Command2_Click()
    Me.Image1.Width = Me.Image1.Width * 1.1
    Me.Image1.Height = Me.Image1.Height * 1.1
End Sub