Examples: Close method (NotesUIDatabase - LotusScript)

This view action closes the current database.

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