DeleteIOD Example for Visual Basic

Private Sub Command14_Click()
    LEADDICOM1.EnableMethodErrors = True
On Error GoTo DELETEIODERROR
    LEADDICOM1.MoveFirstIOD False
    LEADDICOM1.DeleteIOD
    Exit Sub
    
DELETEIODERROR:
    MsgBox "Error"
End Sub