DeleteVR Example for Visual Basic

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

On Error GoTo DELETEVRERROR
    nCode = 18771
    'move to the selected VR
    LEADDICOM1.FindVR (nCode)
    'delete it
    LEADDICOM1.DeleteVR
    
    Exit Sub
DELETEVRERROR:
    MsgBox "Error"
End Sub