# Code Samples - Neevia PDFsign/encrypt

## Example 4: Sign and certify a PDF file - Visual Basic 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 27 28  Dim NVsign : Set NVsign = CreateObject("Neevia.PDFsign") NVsign.CertificateFile = "c:\cert.pfx" NVsign.CertificatePassword = "pwd" NVsign.Certify = true NVsign.CertifyPermissions = 0 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 = 1 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