Example 3: Stamp a PDF file with an image watermark (Visual Basic)  Dim NVstamp : Set NVstamp = CreateObject("PDFstamp.Neevia") Dim indx : indx = NVstamp.CreateNewStamp NVstamp.Stamps(indx).StampType = 2 NVstamp.Stamps(indx).Name = "Stamp1" NVstamp.Stamps(indx).ImageFile = "c:\stamp.jpg" NVstamp.Stamps(indx).X = "center" NVstamp.Stamps(indx).Y = "center" NVstamp.Stamps(indx).PlaceAs = 1 Dim retVal retVal = NVstamp.StampPDF("c:\in.pdf", "c:\out.pdf") If retVal <> 0 Then MsgBox("Error code=" & CStr(retVal)) Else MsgBox("Done") End If 

 Testimonials
 I was impressed by how fast, easy to use and cost effective PDFresize is. Not to mention the intuitive graphic interface it comes with. Keep up the good work!
 John Pilger

 Site feedback
 If you have any comments or suggestions about our web site, please feel free to email them to web®neeviaPDF¸com