MoveFirstIOD Example for Visual Basic

Private Sub Command14_Click()
    Dim hIOD As Long

    LEADDICOM1.EnableMethodErrors = True
On Error GoTo MOVEIODERROR
    'Move to the First IOD in the list
    LEADDICOM1.MoveFirstIOD False
    hIOD = LEADDICOM1.CurrentIOD.hIOD 'store it
    MsgBox LEADDICOM1.CurrentIOD.Name
    
    'Move to the Last IOD at this same level
    LEADDICOM1.MoveLastIOD True
    MsgBox LEADDICOM1.CurrentIOD.Name
    
    'Move to the Previous IOD at this same level
    LEADDICOM1.MovePrevIOD True
    MsgBox LEADDICOM1.CurrentIOD.Name
    
    'Move back to First IOD
    LEADDICOM1.SetCurrentIOD hIOD
    
    'Move to the Next IOD at this same level
    LEADDICOM1.MoveNextIOD True
    MsgBox LEADDICOM1.CurrentIOD.Name
    Exit Sub
    
MOVEIODERROR:
    MsgBox "Error"
End Sub