例: AddDatabase method

次の例は、ユーザー指定のデータベースをワークスペースに追加します。

On Error Goto errorHandler
Dim workspace As New NotesUIWorkspace
Call workspace.AddDatabase( _
Inputbox("Name of server?", "Server"), _
Inputbox("Filename of database?", "Database"))
errorHandler:
Exit Sub