PDFsharp & MigraDoc Foundation

    Dim FN As String
    Dim document As New PdfDocument
    Dim docImage As Image
    Dim dimension As FrameDimension
    Dim page As PdfPage
    Dim pdfImage As XImage = Nothing
    Dim graphics As XGraphics = Nothing

          FN = txtTIFLocation.Text & DataRowView("FileName").ToString & ".tif"
          docImage = Image.FromFile(FN)
          dimension = New FrameDimension(docImage.FrameDimensionsList(0))
          page = New PdfPage

          pdfImage = XImage.FromGdiPlusImage(docImage)

          page.Height = pdfImage.PointHeight
          page.Width = pdfImage.PointWidth
          document.Pages.Add(page)
          docImage.SelectActiveFrame(dimension, 0)
          graphics = XGraphics.FromPdfPage(page)
          graphics.DrawImage(pdfImage, 0, 0)

          page.Close()
          page = Nothing
          docImage.Dispose()
          docImage = Nothing
          graphics.Dispose()
          graphics = Nothing
          pdfImage.Dispose()
          pdfImage = Nothing