MoveRootIOD Example for Visual Basic

Private Sub Command14_Click()
    LEADDICOM1.EnableMethodErrors = True
On Error GoTo MOVEIODERROR
    'Move to the Root IOD
    LEADDICOM1.MoveRootIOD
    MsgBox LEADDICOM1.CurrentIOD.Name
    
    'Move to the first Child IOD
    LEADDICOM1.MoveChildIOD
    MsgBox LEADDICOM1.CurrentIOD.Name
    
    'Move back to the Parent IOD
    LEADDICOM1.MoveParentIOD
    MsgBox LEADDICOM1.CurrentIOD.Name
    
    Exit Sub
    
MOVEIODERROR:
    MsgBox "Error"
End Sub