次の例は、現在のデータベースに個人エージェントを作成できる権利を Jeffrey Kinnamon に与えます。
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set db = session.CurrentDatabase
Set acl = db.ACL
Set entry = acl.GetEntry( "Jeffrey Kinnamon/East/ACME" )
If Not ( entry Is Nothing ) Then
entry.CanCreatePersonalAgent = True
Call acl.Save
End If