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