DeleteTag Example for Visual Basic

Private Sub Command10_Click()
    Dim lCode As Long
    Dim lIndex As Long
    
On Error GoTo DELETETAGERROR
    lCode = 131073
    'move to the selected Tag
    LEADDICOM1.FindTag (lCode)
    'delete it
    LEADDICOM1.DeleteTag
   
    Exit Sub
DELETETAGERROR:
    MsgBox "Error"
End Sub