FindModuleIOD Example for Visual Basic

Private Sub Command14_Click()
    Dim szPrompt As String

    LEADDICOM1.EnableMethodErrors = True
On Error GoTo FINDIODERROR
    'Find a Module
    LEADDICOM1.FindModuleIOD DICOM_CLASS_CR_IMAGE_STORAGE, 
DICOM_MODULE_BIPLANE_IMAGE
    MsgBox LEADDICOM1.CurrentIOD.Name
    
    LEADDICOM1.SetIODName "New IOD Name #1"
    LEADDICOM1.SetIODDescription "New IOD Description #1"
    szPrompt = "Name: " & LEADDICOM1.CurrentIOD.Name & Chr(13)
    szPrompt = szPrompt & "Desc: " & LEADDICOM1.CurrentIOD.Description
    MsgBox szPrompt
    
    'Find a Class
    LEADDICOM1.FindClassIOD DICOM_CLASS_PRINT_QUEUE
    MsgBox LEADDICOM1.CurrentIOD.Name
    
    LEADDICOM1.SetIODName "New IOD Name #2"
    LEADDICOM1.SetIODDescription "New IOD Description #2"
    szPrompt = "Name: " & LEADDICOM1.CurrentIOD.Name & Chr(13)
    szPrompt = szPrompt & "Desc: " & LEADDICOM1.CurrentIOD.Description
    MsgBox szPrompt
    
    Exit Sub
    
FINDIODERROR:
    MsgBox "Error"
End Sub