You can retrieve the permissions attribute of the Document object by using the following code.
[code]Private Sub Command10_Click()
With PDF1
' Add licensing information
' This is typically done only once a From_Load
.SetLicenseKey LicenseTo, ActivationCode
' Open exsiting PDF document
.Open "C:\temp\sample.pdf", ""
If .Protected = 1 Then
Dim lPermissions As Long
lPermissions = .ObjectAttribute("Document", "Permissions")
MsgBox lPermissions
End If
End With
End Sub[/code]