SetVRName example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
Private Sub TestSetVRName()
   Dim lIndex As Integer
   lIndex = 13
   LEADDICOM1.EnableMethodErrors = True
   On Error GoTo SETVRNAMEERROR

   'move to the selected VR
   LEADDICOM1.FindIndexVR(lIndex)

   'change the name
   LEADDICOM1.SetVRName("New VR Name")
   MessageBox.Show("New Name = " & LEADDICOM1.CurrentVR.Name)
Exit Sub

SETVRNAMEERROR:
   MessageBox.Show("Error")

End Sub