This code, when added to the same form in the Onunload event,
displays a message box that states, "Mary Ann Admin has a user type
of Person" when the form is closed.Sub Onunload(Source As Notesuidocument, Continue As Variant)
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("Mary Ann Admin/East/ACME")
If (entry.UserType = ACLTYPE_PERSON) Then
Messagebox "Mary Ann Admin has a user type of Person" _
,,"User type"
End If
End Sub