Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Call workspace.ViewRebuild
End Sub
Sub rebuild(designChanged As Boolean, preferencesChanged As Boolean)
Dim ws As New NotesUIWorkspace
Call ws.ViewRebuild(designChanged, preferencesChanged)
End Sub