DefaultVR example for Visual Basic

    Screen.MousePointer = vbHourglass
    LEADDICOM1.DefaultVR
    Screen.MousePointer = vbDefault