SetUIDName example for Visual Basic

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