Public Sub Reset() 

Dim instance As DicomVRTable
 
instance.Reset()

public void Reset()

public:
void Reset(); 

<Test> _
Private Sub TestVRTable()
  'Make sure to initialize the DICOM engine, this needs to be done only once 
  'In the whole application
  DicomEngine.Startup()

  'We don't need to call this since the DicomEngine.Startup already does that for us
  'These calls are for demonstration purposes only
  DicomVRTable.Instance.Reset()
  DicomVRTable.Instance.Default()

  'We can also call FindByIndex if we know the index of this VR
  Dim vr As DicomVR = DicomVRTable.Instance.Find(DicomVRType.AE)
  DicomVRTable.Instance.Delete(vr)

  Dim vr1 As DicomVR = DicomVRTable.Instance.Insert(DicomVRType.AE, "My AE VR", 16, DicomVRRestriction.StringFixed, 1)
  Debug.Assert(DicomVRTable.Instance.Exists(vr1) = True)
  DicomVRTable.Instance.SetName(vr1, "My New AE VR")

  Dim count As Integer = 0
  'If we want to loop through all the VRs in the table we can do this:
  vr = DicomVRTable.Instance.GetFirst()
  Do While Not vr Is Nothing
    ' We can also access the rest of the properties of DicomVR in here,
    ' such as DicomVRType.Code, DicomVRType.Length, DicomVRType.Name,
    ' DicomVRType.Restriction and DicomVRType.UnitSize
    If vr.Code = DicomVRType.AE Then
       MessageBox.Show(vr.Name)
    End If
    count += 1
    vr = DicomVRTable.Instance.GetNext(vr)
  Loop
  'We can use GetLast and GetPrevious to achieve the same thing

  Debug.Assert(count = DicomVRTable.Instance.GetCount())

  DicomEngine.Shutdown()
End Sub

public void TestVRTable()
{

   //Make sure to initialize the DICOM engine, this needs to be done only once 
   //In the whole application
   DicomEngine.Startup();

   //We don't need to call this since the DicomEngine.Startup already does that for us
   //These calls are for demonstration purposes only
   DicomVRTable.Instance.Reset();
   DicomVRTable.Instance.Default();

   //We can also call FindByIndex if we know the index of this VR
   DicomVR vr = DicomVRTable.Instance.Find(DicomVRType.AE);
   DicomVRTable.Instance.Delete(vr);

   DicomVR vr1 = DicomVRTable.Instance.Insert(DicomVRType.AE, "My AE VR", 16, DicomVRRestriction.StringFixed, 1);
   Debug.Assert(DicomVRTable.Instance.Exists(vr1) == true);
   DicomVRTable.Instance.SetName(vr1, "My New AE VR");

   int count = 0;
   //If we want to loop through all the VRs in the table we can do this:
   vr = DicomVRTable.Instance.GetFirst();
   while (vr != null)
   {
      // We can also access the rest of the properties of DicomVR in here,
      // such as DicomVRType.Code, DicomVRType.Length, DicomVRType.Name,
      // DicomVRType.Restriction and DicomVRType.UnitSize
      if (vr.Code == DicomVRType.AE)
      {
         MessageBox.Show(vr.Name);
      }
      count++;
      vr = DicomVRTable.Instance.GetNext(vr);
   }
   //We can use GetLast and GetPrevious to achieve the same thing

   Debug.Assert(count == DicomVRTable.Instance.GetCount());

   DicomEngine.Shutdown();
}

public void TestVRTable()
{
   //Make sure to initialize the DICOM engine, this needs to be done only once 
   //In the whole application
   DicomEngine.Startup();
   //We don't need to call this since the DicomEngine.Startup already does that for us
   //These calls are for demonstration purposes only
   DicomVRTable.Instance.Reset();
   DicomVRTable.Instance.Default();

   //We can also call FindByIndex if we know the index of this VR
   DicomVR vr = DicomVRTable.Instance.Find(DicomVRType.AE);
   DicomVRTable.Instance.Delete(vr);

   DicomVR vr1 = DicomVRTable.Instance.Insert(DicomVRType.AE, "My AE VR", 16, DicomVRRestriction.StringFixed, 1);
   Debug.Assert(DicomVRTable.Instance.Exists(vr1) == true);
   DicomVRTable.Instance.SetName(vr1, "My New AE VR");

   int count = 0;
   //If we want to loop through all the VRs in the table we can do this:
   vr = DicomVRTable.Instance.GetFirst();
   while (vr != null)
   {
      // We can also access the rest of the properties of DicomVR in here,
      // such as DicomVRType.Code, DicomVRType.Length, DicomVRType.Name,
      // DicomVRType.Restriction and DicomVRType.UnitSize
      if (vr.Code == DicomVRType.AE)
      {
         Debug.WriteLine(vr.Name);
      }
      count++;
      vr = DicomVRTable.Instance.GetNext(vr);
   }
   //We can use GetLast and GetPrevious to achieve the same thing

   Debug.Assert(count == DicomVRTable.Instance.GetCount());

   DicomEngine.Shutdown();
}

Public Sub TestVRTable()
   'Make sure to initialize the DICOM engine, this needs to be done only once 
   'In the whole application
   DicomEngine.Startup()
   'We don't need to call this since the DicomEngine.Startup already does that for us
   'These calls are for demonstration purposes only
   DicomVRTable.Instance.Reset()
   DicomVRTable.Instance.Default()

   'We can also call FindByIndex if we know the index of this VR
   Dim vr As DicomVR = DicomVRTable.Instance.Find(DicomVRType.AE)
   DicomVRTable.Instance.Delete(vr)

   Dim vr1 As DicomVR = DicomVRTable.Instance.Insert(DicomVRType.AE, "My AE VR", 16, DicomVRRestriction.StringFixed, 1)
   Debug.Assert(DicomVRTable.Instance.Exists(vr1) = True)
   DicomVRTable.Instance.SetName(vr1, "My New AE VR")

   Dim count As Integer = 0
   'If we want to loop through all the VRs in the table we can do this:
   vr = DicomVRTable.Instance.GetFirst()
   Do While Not vr Is Nothing
      ' We can also access the rest of the properties of DicomVR in here,
      ' such as DicomVRType.Code, DicomVRType.Length, DicomVRType.Name,
      ' DicomVRType.Restriction and DicomVRType.UnitSize
      If vr.Code = DicomVRType.AE Then
         Debug.WriteLine(vr.Name)
      End If
      count += 1
      vr = DicomVRTable.Instance.GetNext(vr)
   Loop
   'We can use GetLast and GetPrevious to achieve the same thing

   Debug.Assert(count = DicomVRTable.Instance.GetCount())

   DicomEngine.Shutdown()
End Sub