SetTagName example for Visual Basic

Private Sub Command10_Click()
    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:
    MsgBox "Error"
End Sub