Private Sub InteropUserControl_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles AnnotationViewer1.DoubleClick
Dim eMouse As MouseEventArgs
If AnnotationViewer1.SelectionMode = Vintasoft.Annotation.SelectionMode.AnnotationView Then
eMouse = DirectCast(e, MouseEventArgs)
If _zoomSelection Is Nothing Then
_zoomSelection = New ZoomSelection(_imageViewer)
End If
AnnotationViewer1.VisualTool = _zoomSelection
_mouseX = eMouse.X.ToString
_mouseY = eMouse.Y.ToString
_zoomSelection.Rectangle = New Rectangle(CInt(eMouse.X - 300), CInt(eMouse.Y - 200), 600, 400)
_zoomSelection.Zoom()
End If
End Sub
But never the zoom appears on the selected recangle or the rectangle not created on the place the user has clicked.