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

   NVsign.PDFEncrypt = true
   NVsign.PDFEncryptionType = "rc4"
   NVsign.PDFOwnerPassword = "owner"

   ' p - document printing is denied
   ' e - disable extraction of text and graphics
   NVsign.PDFPermissions = "pe" 
  
   Dim retVal : retVal = NVsign.EncryptPDF("c:\in.pdf", "c:\out.pdf")
   If retVal <> 0 Then
      MsgBox("Error code=" & CStr(retVal))
   Else
      MsgBox("Done")
   End If