MagGlassPaintIntensity Example for Visual Basic

Private Sub StartMagnifyingGlass()
    Dim nStatus As Integer

    ' Setting the Magnifying Glass Paint contrast, gamma and intensity
    LEADRasterView1.MagGlassPaintContrast = LEADRasterView1.MagGlassPaintContrast + 100
    LEADRasterView1.MagGlassPaintGamma = LEADRasterView1.MagGlassPaintGamma + 100
    LEADRasterView1.MagGlassPaintIntensity = LEADRasterView1.MagGlassPaintIntensity + 100

    ' Starting the Magnifying Glass
    nStatus = LEADRasterView1.StartMagGlass(100, 100, 400, RGB(255, 0, 0), RGB(128, 128, 128), False, 1, False, CROSSHAIR_FINE, True, True)

    If (nStatus <> 0) Then
        MsgBox "Error Starting the Magnifying Glass, Error: " & CStr(nStatus)
    End If
End Sub