DefaultUID example for Visual Basic

Screen.MousePointer = vbHourglass
'Restore to default values
LEADDICOM1.DefaultUID
Screen.MousePointer = vbDefault