ZoomInDone example for Access 2.0

This example triggers the ZoomInDone event and displays a message that the ZoomIn image has been captured.

           Sub Lead1_ZoomInDone (x As Long, y As Long)
              MsgBox "ZoomIn Captured: " & Str(x) & "," & Str(y)
           End Sub