DefaultUID example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
Private Sub TestDefaultUID ( )
   System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
   'Restore to default values
   LEADDICOM1.DefaultUID()
   System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
End Sub