DeleteUID Example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
Private Sub TestDeleteUID()
   Dim pszCode As String
   Dim nIndex As Short

   LEADDICOM1.EnableMethodErrors = True
   On Error GoTo DELETEUIDERROR
   pszCode = "1.2.840.10008.1.2"
   'move to the selected UID
   LEADDICOM1.FindUID(pszCode)
   'delete it
   LEADDICOM1.DeleteUID()
   Exit Sub

DELETEUIDERROR:
   MessageBox.Show("Error")

End Sub