Private Sub ResizePDF(sourcePDF As String, outPDF As String)
    Dim form As XPdfForm = XPdfForm.FromFile(sourcePDF)
    Dim doc2 As New PdfSharp.Pdf.PdfDocument()
    doc2.Options.CompressContentStreams = True
    doc2.Options.ColorMode = PdfSharp.Pdf.PdfColorMode.Rgb
    For pagenumber As Integer = 1 To (form.PageCount + 1) - 1
        Dim page As PdfSharp.Pdf.PdfPage = doc2.Pages.Add()
        form.PageNumber = pagenumber
        page.Width = form.PixelWidth + 15.36
        page.Height = form.PixelHeight + 40.32
        Dim graph As XGraphics = XGraphics.FromPdfPage(page)
        Dim rect As New XRect(0, 0, page.Width, page.Height)
        graph.DrawImage(form, rect)
    Next
    If IO.Directory.Exists(IO.Path.GetDirectoryName(outPDF)) = False Then IO.Directory.CreateDirectory(IO.Path.GetDirectoryName(outPDF))
    doc2.Save(outPDF)
End Sub