HasMagGlass example for Visual Basic

    If (LEAD1.HasMagGlass) Then
        Caption = "Stop"
        'Stop the MagGlass
        LEAD1.StopMagGlass
    Else
        Caption = "Error"
    End If