Remove consistent ACL flag

From time to time I receive databases that have enforce consistent ACL switched on.

The following code for a button removes the flag and allows me to open the database with manager rights.

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 hACL As Long, Byval Flags As Long ) As Integer 
Declare Function NSFDbStoreACL Lib "nnotes.dll" (Byval hDB As Long, Byval hACL As Long, Byval ObjectID As Long, Method As Long) As Integer 


Event Click: 
Dim hDB As Long, hACL As Long 
rc = NSFDbOpen("YourDatabase.nsf", hDB) 
rc = NSFDbReadACL(hDB, hACL) 
rc = ACLSetFlags(hACL, &h0) 
rc = NSFDbStoreACL(hDB, hACL, 0, 0) 
rc = NSFDbClose(hdb)