by Mohammad Taqi Kirmani (MeesamPro) (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 11th February 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Zoom in on a picture box.
Private Sub Picture1_Click()
Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.Width * 2, Picture1.Height * 2, 0, 0, Picture1.Width, Picture1.Height
End Sub