SetUIDName example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
Private Sub TestSetUIDName()
   LEADDICOM1.EnableMethodErrors = True
   On Error GoTo SETNAMEERROR
   'move to the selected UID
   LEADDICOM1.FindIndexUID(13)
   'change the name
   LEADDICOM1.SetUIDName("New UID Name")
Exit Sub
SETNAMEERROR:
   MessageBox.Show("Error")

End Sub