# Code Samples - Neevia PDFsign/encrypt

## Example 3: Sign and timestamp a PDF file - VB.NET Copy

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26  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