LOTUSSCRIPT/COM/OLE CLASSES
Sub Click(Source As Button) Dim ws As New NotesUIWorkspace Dim uidb As NotesUIDatabase Set uidb = ws.CurrentDatabase Call uidb.Close End Sub
See Also