Loading a DICOM Directory for VB.NET

Private Sub TestLoadingDicomDir()
   Dim DicomDir As New LTDICDIRLib.LEADDicomDir

   ' Load a DICOMDIR File. Note: It is necessary to specify
   ' DS_LOAD_CLOSE so that we can save the Directory later.
   DicomDir.LoadDicomDir("C:\Medical Images\DICOMDIR", LTDICLib.DicomDataSetFlags.DS_LOAD_CLOSE)

   ' Add some additional DICOM files to the loaded Directory
   DicomDir.InsertDicomFile("C:\Medical Images\Image")
   DicomDir.InsertDicomFile("C:\Medical Images\Patient 2\Image1")

   ' Save the DICOMDIR File
   DicomDir.SaveDicomDir()
End Sub