PDFsharp & MigraDoc Foundation

Public Function OpenImage(ByVal vsImgSrcPath As String, Optional ByRef vsError As String = "") As Boolean

        Dim loImage As Image = Nothing 'Used to store image information
        Dim loFrameDimension As System.Drawing.Imaging.FrameDimension = Nothing 'Used to store Image frame dimension information
        Dim liFrameCount As Integer = 0 'It is used to store Image frame count information
        Dim loXGraphics As PdfSharp.Drawing.XGraphics = Nothing
        Dim loXImage As PdfSharp.Drawing.XImage = Nothing
        Dim liImgWidth As Integer
        Dim liImgHeight As Integer


        If Not System.IO.File.Exists(vsImgSrcPath) Then
            vsError = "Image File not found: " & vsImgSrcPath
            Return False
        End If

        If moPDFDoc IsNot Nothing Then
            vsError = "Another document already open. Close it before opening a new one."
            Return False
        End If

        Try

            loImage = Image.FromFile(vsImgSrcPath)
            loFrameDimension = New System.Drawing.Imaging.FrameDimension(loImage.FrameDimensionsList(0))
            liFrameCount = loImage.GetFrameCount(loFrameDimension)

            moPDFDoc = New PdfDocument()

            For index As Integer = 0 To liFrameCount - 1
                'Select active frame
                loImage.SelectActiveFrame(loFrameDimension, index)
                moPDFDoc.Pages.Add(New PdfPage())
                liImgWidth = (loImage.Width * 72 / loImage.HorizontalResolution)
                liImgHeight = (loImage.Height * 72 / loImage.VerticalResolution)
                moPDFDoc.Pages(index).Width = liImgWidth
                moPDFDoc.Pages(index).Height = liImgHeight
                loXGraphics = PdfSharp.Drawing.XGraphics.FromPdfPage(moPDFDoc.Pages(index))

                loXImage = loImage
                loXGraphics.DrawImage(loXImage, 0, 0)
            Next

            miNumOfPages = moPDFDoc.PageCount

            Return True

        Catch ex As Exception
            vsError = ex.Message
            Return False
        Finally
            If loXGraphics IsNot Nothing Then
                loXGraphics.Dispose()
                loXGraphics = Nothing
            End If
            If loFrameDimension IsNot Nothing Then
                loFrameDimension = Nothing
            End If
            If loImage IsNot Nothing Then
                loImage.Dispose()
                loImage = Nothing
            End If


        End Try

    End Function

Image image = Image.FromFile(@"F:\$$$PDFsharp\98.tif");
FrameDimension frameDimension = new FrameDimension(image.FrameDimensionsList[0]);
image.SelectActiveFrame(frameDimension, 1);
image.Save(@"F:\$$$PDFsharp\98_2.bmp", ImageFormat.Bmp);

Image image = Image.FromFile(@"F:\$$$PDFsharp\98.tif");
FrameDimension frameDimension = new FrameDimension(image.FrameDimensionsList[0]);

image.SelectActiveFrame(frameDimension, 1);
image.Save(@"F:\$$$PDFsharp\98_2.tif", ImageFormat.Tiff);

image = Image.FromFile(@"F:\$$$PDFsharp\98_2.tif");
image.Save(@"F:\$$$PDFsharp\98_2a.bmp", ImageFormat.Bmp);