InsertModule Example for Visual Basic

Private Sub Test2Menu_Click()
    Dim nRet As Integer
    
    LEADDICOM1.EnableMethodErrors = False
    LEADDICOM1.GetInfoDS
    nRet = LEADDICOM1.InsertModule(DICOM_MODULE_LUT_IDENTIFICATION, True)
    If (nRet <> 0) Then
        MsgBox "Error Inserting Module!"
    Else
        nRet = LEADDICOM1.FindModuleIOD(LEADDICOM1.InfoClass, LEADDICOM1.CurrentModule.Module)
        MsgBox "Inserted Module " & LEADDICOM1.CurrentIOD.Name
    End If
End Sub