Dim ResFile As String = PDFlink.namaPDFlink
Dim form As XPdfForm = XPdfForm.FromFile(ResFile)

 Dim outputDocument As PdfSharp.Pdf.PdfDocument = New PdfSharp.Pdf.PdfDocument()
 outputDocument.Options.ColorMode = PdfColorMode.Cmyk
 outputDocument.Options.UseFlateDecoderForJpegImages = PdfUseFlateDecoderForJpegImages.Never
 outputDocument.Options.FlateEncodeMode = PdfFlateEncodeMode.Default
 outputDocument.Options.EnableCcittCompressionForBilevelImages = False
 outputDocument.Options.CompressContentStreams = False
 outputDocument.Options.NoCompression = False

'.......

gfx.Save()
Dim box As XRect
box = New XRect(PosX - ob.Bleed, PosY - ob.Bleed,
                        ob.trimboxWidth + (ob.Bleed * 2), ob.trimboxHeight + (ob.Bleed * 2))

Dim clipPath As XGraphicsPath = New XGraphicsPath()
clipPath.AddRectangle(box)
gfx.IntersectClip(clipPath)

gfx.DrawImage(form, PosX - ((ob.mediaboxWidth - ob.trimboxWidth) / 2), PosY - ((ob.mediaboxHeight - ob.trimboxHeight) / 2), ob.mediaboxWidth, ob.mediaboxHeight)
gfx.Restore()