DefaultIOD example for Visual Basic

'Restore Default IOD table
Screen.MousePointer = vbHourglass
LEADDICOM1.DefaultIOD
Screen.MousePointer = vbDefault