PDFsharp & MigraDoc Foundation

Public Function SetImage(ByVal img As Byte(), ByVal path As String, ByVal nome1 As String) As Boolean

        If img IsNot Nothing Then
            Try
                ''''criar o pdf
                Dim myPDF As PdfDocument
                myPDF = New PdfDocument()
                ''''
                Dim newImage As System.Drawing.Image

                Using ms = New MemoryStream(img, 0, img.Length)
                    ms.Write(img, 0, img.Length)

                    newImage = System.Drawing.Image.FromStream(ms, True)
                    newImage.Save(path & Guid.NewGuid().ToString & ".jpg")

                    'newImage.Save(path & "teste.jpg")

                    ''''passar imagem para pdf
                    Dim xgr As XGraphics
                    myPDF.Pages.Add(New PdfPage())
                    xgr = XGraphics.FromPdfPage(myPDF.Pages(0))
                    'Dim myImage As XImage = newImage
                    xgr.DrawImage(newImage, 0, 0)
                    xgr = Nothing
                    ''''

                    ''''salvar pdf
                    myPDF.Save("C:\Inetpub\wwwroot\scanner2\Files\teste.pdf")
                    myPDF = Nothing
                    ''''

                End Using

                Return True
            Catch ex As Exception

                Return False
            End Try
        Else
            Return False
        End If
    End Function

Dim tooBig As New Bitmap("filepath here")
Dim justRight As New Bitmap(desiredWidth, desiredHeight)

Using g As Graphics = Graphics.FromImage(justRight)
     g.DrawImage(tooBig, 0, 0, justRight.Width, justRight.Height)
End Using

tooBig.Dispose()

Dim myImage = New System.Drawing.Bitmap(newImage)
                    myImage.SetResolution(200, 200)

                    xgr.DrawImage(myImage, 0, 0)
                    xgr = Nothing