FindIndexModule Example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
Private Sub TestFindIndexModule()
   Dim lCount As Integer
   Dim szOut As String
   Dim x As Integer

   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
   MessageBox.Show(szOut)
   LEADDICOM1.EnableMethodErrors = True

End Sub