Dim NVsign : NVsign = CreateObject("Neevia.PDFsign")

   NVsign.CertificateFile = "c:\cert.pfx"
   NVsign.CertificatePassword = "pwd"

   NVsign.TimeStamp = true
   NVsign.TimeServerURL = "http://tsa.neeviaPDF.com/tsa"

   NVsign.X = 0
   NVSign.Y = 0
   NVSign.Width = 6
   NVSign.Height = 2
   NVSign.Units = 1

   NVSign.ViewType = 2
   NVSign.Image = "c:\stamp.jpg"

   NVSign.Reason = "I am the creator of this document"
   NVSign.TextColor = "#0000FF"
 
   Dim retVal : retVal = NVsign.SignPDF("c:\in.pdf","c:\out.pdf")
   If retVal <> 0 Then
     MsgBox("Error code=" & CStr(retVal))
   Else
     MsgBox("Done")
   End If