例: NavBarSetText method

このフォームアクションは、現在の文書のアドレスバーを設定します。

Sub Click(Source As Button)
  Dim ws As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = ws.CurrentDocument
  Call uidoc.NavBarSetText("www.ibm.com", "software")
End Sub