UpdateMagGlassShape example for Visual Basic

Dim hRgn As Long
LEADRasterView1.ScaleMode = 3
LEADRasterView1.RgnFrameType = 0
LEADRasterView1.StartMagGlass 100, 100, 400, RGB(255, 0, 0), _

                           RGB(128,128, 128), True, 1, False, _

                           CROSSHAIR_FINE, True, True
'assume that VB API viewer Add-In Module was added to the current
project
hRgn = CreateRoundRectRgn(0, 0, 100, 100, 25, 25)
LEADRasterView1.UpdateMagGlassShape MAGGLASS_SHAPE_HRGN, hRgn
DeleteObject hRgn
'.......some other work..............
'.......some other work..............
'Stop the MagGlass
LEADRasterView1.StopMagGlass