<pre id=\"best-answer-content\" class=\"reply-text mb10\">Dim H As Long, W As Long
Private Sub Command1_Click()
Image1.Height = Image1.Height 100
Image1.Width = Image1.Width 100
End Sub
Private Sub Command2_Click()
Image1.Height = Image1.Height - 100
Image1.Width = Image1.Width - 100
End Sub
Private Sub Command3_Click()
Image1.Height = H
Image1.Width = W
End Sub
Private Sub Form_Load()
Me.ScaleMode = 1
Image1.Stretch = True
H = 2000
W = 2000
Image1.Height = H
Image1.Width = W
Image1.Picture = LoadPicture(\"c:\\1.jpg\")