例: Close method (NotesUIDatabase - LotusScript®)

次のビューアクションは、現在のデータベースを閉じます。

Sub Click(Source As Button)
  Dim ws As New NotesUIWorkspace
  Dim uidb As NotesUIDatabase
  Set uidb = ws.CurrentDatabase
  Call uidb.Close
End Sub