Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Set db = session.CurrentDatabase
 If db.ListInDbCatalog Then
   db.ListInDbCatalog = False
   Print "List in database catalog"
 Else
   db.ListInDbCatalog = True
   Print "Do not list in database catalog"
 End If
End Sub

See Also

ListInDbCatalog property

Glossary