Code:
Private Sub Zoom(ByVal factor As Double)
Dim img_ As Image
img_ = PictureBox1.Image
Dim srcbtm As New Bitmap(img_)
Dim destbtm As New Bitmap(CInt(srcbtm.Width * factor), _
CInt(srcbtm.Height * factor))
Dim destGraphic As Graphics = Graphics.FromImage(destbtm)
destGraphic.DrawImage(srcbtm, 0, 0, destbtm.Width + 1, _
destbtm.Height + 1)
PictureBox1.Image = destbtm
End Sub