SetVRName example for Visual Basic

Private Sub Command10_Click()
    Dim lIndex As Long
    lIndex = 13
    LEADDICOM1.EnableMethodErrors = True

On Error GoTo SETVRNAMEERROR
    'move to the selected VR
    LEADDICOM1.FindIndexVR (lIndex)
    'change the name
    LEADDICOM1.SetVRName ("New VR Name")
    
    MsgBox "New Name = " & LEADDICOM1.CurrentVR.Name
    Exit Sub
    
SETVRNAMEERROR:
    MsgBox "Error"
End Sub