例: RegionDoubleClick event

次の例は、データベース設計者がカレンダーの日付をダブルクリックすると、ビューの別名を表示します。

Sub Regiondoubleclick(Source As Notesuiview)
  Dim s As New NotesSession
  Dim db As NotesDatabase
  Set db = s.CurrentDatabase
  If db.CurrentAccessLevel >= ACLLEVEL_DESIGNER Then
    Messagebox Source.ViewAlias, , "Alias name of this view"
  End If
End Sub