例: DeselectAll method (NotesUIView - LotusScript)

次のビューアクションは、現在のビューの文書の選択をすべて解除します。

Sub Click(Source As Button)
  Dim ws As New NotesUIWorkspace
  Dim uiview As NotesUIView
  Set uiview = ws.CurrentView
  Call uiview.DeselectAll
End Sub