I have a continuous form with an image box in each row. Theimages are saved at 400 X 400px BUT sometimes they are a little different dueto its original size so it might be like 300 X 400px or similar. Anyways, Iwould like to click on my image box (imgJobStep) and the image would eitheropen another form OR enlarge the image box I clicked on to a proportional size.I found the code below but not sure how to use it, will it work?

I would rather have the image box (imgJobStep) enlarge tothe left when clicked on and go back to normal when enlarged when clicked onagain if possible.


  Dim newHeight As Integer, newWidth
   Dim curHeight As Property, curWidth As Property
   Dim Ratio As Single, Multiplier As Single
   
   Set curWidth = Me!FrameName.Properties("Width")
   Set curHeight = Me!FrameName.Properties("Height")
   Ratio = curWidth / curHeight 'Proportionality Factor
   Multiplier = 1.05
   
   newWidth = curWidth * Multiplier
   newHeight = newWidth / Ratio 'Maintain Porportionality
   
   If newHeight < 31680 And newWidth < 31680 Then
      curWidth = newWidth
      curHeight = newHeight
   Else
      MsgBox "MAXIMUM ZOOM ATTAINED!"
   End If
   
   Set curWidth = Nothing
   Set curHeight = Nothing