FindIndexModule Example for Visual Basic

Private Sub TestMenu_Click()
    Dim lCount As Long
    Dim szOut As String
    Dim x As Long
    
    LEADDICOM1.EnableMethodErrors = False
    lCount = LEADDICOM1.GetModuleCount
    LEADDICOM1.GetInfoDS
    szOut = "Found " & CStr(lCount) & " Modules" & Chr(10) & Chr(13)
    For x = 0 To lCount - 1
        LEADDICOM1.FindIndexModule x
        LEADDICOM1.FindModuleIOD LEADDICOM1.InfoClass, LEADDICOM1.CurrentModule.Module
        szOut = szOut & "Module " & LEADDICOM1.CurrentIOD.Name & Chr(10) & Chr(13)
    Next
    MsgBox szOut
    LEADDICOM1.EnableMethodErrors = True
End Sub