例: PostEntryResize event

次の PostEntryResize イベントは、[カレンダー] ビューのエントリの開始時刻と終了時刻を表示します。

Sub Postentryresize(Source As Notesuiview)
  Messagebox Source.CalendarDateTime & Chr(13) & _
  Source.CalendarDateTimeEnd,, _
  "Start and end dates for region"
End Sub