MagGlassPaintContrast example for Visual Basic

Private Sub StartMagnifyingGlass()
    Dim nStatus As Integer
    
    ' Setting the Magnifying Glass Paint contrast, gamma and intensity
    LEAD1.MagGlassPaintContrast= LEAD1.MagGlassPaintContrast + 100
    LEAD1.MagGlassPaintGamma= LEAD1.MagGlassPaintGamma + 100
    LEAD1.MagGlassPaintIntensity= LEAD1.MagGlassPaintIntensity + 100
    
    ' Starting the Magnifying Glass
    nStatus = LEAD1.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