DeleteUID Example for Visual Basic

Private Sub Command10_Click()
    Dim pszCode As String
    Dim nIndex As Integer
    
    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:
    MsgBox "Error"
End Sub