zoom in and zoom out

[jcis]

Something similar

Private mPic As Picture
Private mWidth As Single, mHeight As Single

Private Sub Form_Load()
    Set mPic = LoadPicture("D:\pic1.JPG") '(Add the Path to your Picture here)
    mWidth = Picture1.ScaleX(mPic.Width, vbHimetric, Picture1.ScaleMode)
    mHeight = Picture1.ScaleY(mPic.Height, vbHimetric, Picture1.ScaleMode)
    
    Picture1.AutoRedraw = True
    Picture1.PaintPicture mPic, 0, 0
End Sub

Private Sub Command1_Click()
    ZoomPicture Picture1, 0.9
End Sub
Private Sub Command2_Click()
    ZoomPicture Picture1, 1.1
End Sub

Public Sub ZoomPicture(pct As PictureBox, zoom As Double)
    pct.Cls
    mWidth = mWidth * zoom
    mHeight = mHeight * zoom
    pct.PaintPicture mPic, 0, 0, mWidth, mHeight
End Sub