Zoom on Picture

[RhinoBull]

Hi vbzoom and welcome to VBF!

Here is a small procedure that allows to zoom in/out image but KIM that the higher the resolution the more distorted it would get:

Public Sub ZoomPicture(pct As PictureBox, zoom As Double)
    With pct
        .Width = .Width * zoom
        .Height = .Height * zoom
        .PaintPicture .Picture, 0, 0, .ScaleWidth, .ScaleHeight
    End With
End Sub
 
'usage:
Private Sub Command1_Click()
'============================
 
    'zoom it out
    ZoomPicture Picture1, 0.9
 
End Sub
 
Private Sub Command2_Click()
'============================
 
    'zoom it in
    ZoomPicture Picture1, 1.1
 
End Sub