FindModule Example for Visual Basic

Dim nRet As Integer
LEADDICOM1.EnableMethodErrors = False
nRet = LEADDICOM1.FindModule(DICOM_MODULE_NM_TOMO_ACQUISITION)
If nRet <> 0 Then
    MsgBox "Not Found"
Else
    LEADDICOM1.GetInfoDS
    LEADDICOM1.FindModuleIOD LEADDICOM1.InfoClass, DICOM_MODULE_NM_TOMO_ACQUISITION
    MsgBox "Found Module " & LEADDICOM1.CurrentIOD.Name
End If
LEADDICOM1.EnableMethodErrors = True