Event (Declarations):
Declare function nsfdbopen lib "nnotes.dll" (byval dbname as string, hdb as long) AS Integer
Declare function nsfdbclose lib "nnotes.dll" (Byval HDB As long) AS Integer
Declare function nsfdbreadacl lib "nnotes.dll" (Byval HDB As Long, HACL AS Long) AS Integer
Declare function aclsetflags lib "nnotes.dll" (Byval Flags As Long
Screen.width / 2) this.width = Screen.width / 2 "vSpace = 2 border = 0> as integer
Declare function nsfdbstorearacl lib "nnotes.dll" (byval HACL AS Long, Byval ObjectID as long, method as long) AS Integer
Event Click: DIM HDB As Long, HACL As Long Rc = NSFDBopen ("Test.nsf", HDB) RC = NSFDBReadaDACL (HACL) RC = AclsetFlags (HACL, & H0) RC = NSFDBStoreaCl (HDB, HACL, 0, 0 ) Rc = nsfdbclose (HDB)