if your image control is called image1 then you would have
Code:
Private Sub image1_click()
image1.height=2000
image1.width=2000
End Sub
to capture the old values you would need a public variable in the form declared at the top of the module below option explicit e.g.
Code:
public oldheight as single
public oldwidth as single
and modify your click event to something like
Code:
Private Sub image1_click()
if image1.height=2000 then ' image already enlarged so revert to old size
image1.height=oldheight
image1.width=oldwidth
else 'image not enlarged so enlarge it
oldheight=image1.height
oldwidth=image1.width
image1.height=2000
image1.width=2000
end if
End Sub