Examples: Parent property (NotesACLEntry - LotusScript®)

This script gets the parent access control list of an entry.

Dim db As New NotesDatabase( "", "parent.nsf" )
Dim acl As NotesACL
Dim parentACL As NotesACL
Dim entry As NotesACLEntry
Set acl = db.ACL
Set entry = acl.GetFirstEntry
Set parentACL = entry.Parent ' acl and parentACL are same