例: CalendarDateTime property

次の例は、サイズ変更の後に [カレンダー] ビューの地域の開始日時と終了日時を表示します。

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