ZoomInDone example for Visual Basic

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

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