DefaultVR example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
Private Sub TestDefaultVR ( )
   System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
   LEADDICOM1.DefaultVR()
   System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
End Sub