База коммутатор

Call main.ReplaceItemValue( "Forms", db.Forms)

Sub AddDatabase (db As NotesDatabase)
Dim wspace As New NotesUIWorkspace, uid As NotesUIDocument
Dim Form As String
Form = "Database"
Dim main As notesDocument
Dim session As New NotesSession
Set main = New NotesDocument(session.CurrentDataBase)
main.form = Form

Call main.ReplaceItemValue( "ReplicaID", db.ReplicaID)
Call main.ReplaceItemValue( "Address", db.FilePath)
Call main.ReplaceItemValue( "Template", db.TemplateName)
Call main.ReplaceItemValue( "Forms", db.Forms)

Call main.ReplaceItemValue( "Views",    db.Views)
Call main.ReplaceItemValue( "Agents",   db.Agents)

Call main.ReplaceItemValue( "Title",    db.Title)
Call main.ReplaceItemValue( "Categories",   db.Categories)
Call main.ReplaceItemValue( "Design",   db.DesignTemplateName)
Call main.Save( False, False )

End Sub

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Forall form In db.Forms
Messagebox form.Name
End Forall
End Sub