MagnifyGlassActionSample Example for Visual Basic

LEADRasterContainerViewer.EnableMethodErrors = True
      ' Activate Magnify Glass action
      If LEADRasterContainerViewer.MagnifyGlassAction.Use = False Then
         LEADRasterContainerViewer.MagnifyGlassAction.ActivateAction True, 0
      End If
      ' Select left mouse button to control Magnify Glass parameters. 
      LEADRasterContainerViewer.MagnifyGlassAction.SetMouseButtonAction CONVIEW_MOUSE_BUTTON_LEFT
      ' Specify Magnifiy parameters. 
      LEADRasterContainerViewer.MagnifyGlassAction.Appearance3D = True
      LEADRasterContainerViewer.MagnifyGlassAction.BorderSize = 1
      LEADRasterContainerViewer.MagnifyGlassAction.CrossHair = 5
      LEADRasterContainerViewer.MagnifyGlassAction.Ellipse = True
      LEADRasterContainerViewer.MagnifyGlassAction.Height = 100
      LEADRasterContainerViewer.MagnifyGlassAction.Width = 200
      LEADRasterContainerViewer.MagnifyGlassAction.ZoomFactor = 500
      LEADRasterContainerViewer.MagnifyGlassAction.PenColor = RGB(0, 0, 0) 
      ' Set Magnify Glass parameters. 
      LEADRasterContainerViewer.MagnifyGlassAction.SetAction