InsertModule Example for VB.NET

'LEADDICOM1 is a DICOM Dataset defined outside this method
Private Sub TestInsertModule()
   Dim nRet As Short

   LEADDICOM1.EnableMethodErrors = False
   LEADDICOM1.GetInfoDS()
   nRet = LEADDICOM1.InsertModule(LTDICLib.DicomModuleConstants.DICOM_MODULE_LUT_IDENTIFICATION, True)
   If (nRet <> 0) Then
      MessageBox.Show("Error Inserting Module!")
   Else
      nRet = LEADDICOM1.FindModuleIOD(LEADDICOM1.InfoClass, LEADDICOM1.CurrentModule.Module)
      MessageBox.Show("Inserted Module " & LEADDICOM1.CurrentIOD.Name)
   End If

End Sub