Dim filename As String = txtUploadPath.Text
        ' Create the output document
        Dim outputDocument As New PdfDocument()

        outputDocument.PageLayout = PdfPageLayout.SinglePage

        Dim gfx As XGraphics

        ' Open the external document as XPdfForm object
        Dim form As XPdfForm = XPdfForm.FromFile(filename)
        ' Determine width and height
        Dim extWidth As Double = form.PixelWidth
        Dim extHeight As Double = form.PixelHeight

        Dim page As PdfPage = outputDocument.AddPage()
        'page.Orientation = PageOrientation.Landscape
        page.Width = (XUnit.FromInch(0.5).Point + extWidth)
        page.Height = (XUnit.FromInch(0.5).Point + extHeight)
        Dim width As Double = page.Width
        Dim height As Double = page.Height

        gfx = XGraphics.FromPdfPage(page)

        ' Skip if left side has to remain blank
        Dim box As XRect

        box = New XRect(0, 0, extWidth, extHeight)
        ' Draw the page identified by the page number like an image
        gfx.DrawImage(form, box)

        ' Save the document...
        filename = "Border.pdf"
        outputDocument.Save(filename)
        ' ...and start a viewer.
        Process.Start(filename)
        txtUploadPath.Text = "File uploaded"

gfx.DrawImage(form, box.center)

box = New XRect(XUnit.FromInch(0.25).Point, XUnit.FromInch(0.25).Point, extWidth, extHeight)
        gfx.DrawImage(form, box)