Variation on merging and saving TIFF files to dbase

Private Sub btnImport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImport.Click

        Dim m_uebGroup As UltraExplorerBarGroup
        Dim m_pages As Integer
        Dim m_fi As FileInfo
        Dim m_di As DirectoryInfo
        Dim m_srcDoc, m_srcSubDoc, m_targetDoc As String
       
 
        For Each m_uebGroup In uebImgListBar.Groups
            
            If m_uebGroup.Items.Count() > 0 Then
                m_srcDoc = Path.Combine(m_srcDirectoryPath, m_uebGroup.Items(0).Tag.ToString())

                If File.Exists(m_srcDoc) Then
                    Dim m_bm As New GraphicsMill.Bitmap
                    m_bm.Load(m_srcDoc)
                    m_di = New DirectoryInfo(m_targetDirectoryPath)
                    If Not m_di.Exists Then m_di.Create()
                    m_targetDoc = Path.Combine(m_targetDirectoryPath, Path.ChangeExtension(m_uebGroup.Text, "tif"))
                    Dim m_tifWriter As New TiffWriter(m_targetDoc)
                    Dim m_frame As New TiffFrame
                    m_frame.Compression = CompressionType.Ccitt4
                    m_frame.SetBitmap(m_bm)
                    m_tifWriter.AddFrame(m_frame)
                    m_frame.Dispose()

                    m_pages = m_uebGroup.Items.Count
                    For i As Integer = 1 To m_pages - 1
                        m_srcSubDoc = Path.Combine(m_srcDirectoryPath, m_uebGroup.Items(i).Tag.ToString())

                        If File.Exists(m_srcSubDoc) Then
                            m_bm.Load(m_srcSubDoc)
                            m_frame = New TiffFrame
                            m_frame.Compression = CompressionType.Ccitt4
                            m_frame.SetBitmap(m_bm)
                            m_tifWriter.AddFrame(m_frame)
                            m_frame.Dispose()
                            
                        Else
                            'Error
                        End If
                    Next

                    m_bm.Dispose()
                    m_tifWriter.Dispose()

                    ImportImage(m_targetDoc)

                   .............

End Sub

Private Sub ImportImage(ByVal FilePath As String)

                    Dim strm As New MemoryStream
                    Dim bm As New Aurigma.GraphicsMill.Bitmap(FilePath)

                    bm.Save(strm, New TiffEncoderOptions(CompressionType.Ccitt4))


                    ''// create a new media object
                    Dim objMedia As New Objects.Media
                    objMedia.MediaBatchID = objMediaBatch.MediaBatchID
                    objMedia.MediaTypeID = 1 '// this is an image
                    ''// set the image property to the compressed image byte array

                    objMedia.Image = strm.ToArray()

                    .........

    End Sub

                   ..............

                   ' test - try writing byte array from dbase to file 
                    Dim strmtest As New MemoryStream(media.Image)
                    Dim bmtest As New GraphicsMill.Bitmap(strmtest)
                    bmtest.Save("D:\My Documents\Projects\ImageMerger\Ian\out\test.tif")

                    'write byte array from dbase to stream
                    Dim objStream As New MemoryStream
                    objStream.Write(media.Image, 0, media.Image.Length)
                    ' create tifreader
                    Me.rdrFormat = FormatManager.CreateFormatReader(objStream)
                    If Me.rdrFormat.MediaFormat = FormatManager.TiffFormat Then

                        m_frameCount = Me.rdrFormat.FrameCount ' returns 1 - even when there should be more

                        Dim frame As TiffFrame = CType(Me.rdrFormat.LoadFrame(0), TiffFrame)
                        frame.GetBitmap(Me.vwrDocument.Bitmap)
                        frame.Dispose()
                    Else