SetTagName example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
Private Sub TestSetTagName()
   LEADDICOM1.EnableMethodErrors = True
   On Error GoTo SETTAGNAMEERROR
   'move to the selected Tag
   LEADDICOM1.FindIndexTag (13)
   'change the name
   LEADDICOM1.SetTagName("New Tag Name")
   Exit Sub
SETTAGNAMEERROR:
   MessageBox.Show("Error")
End Sub