例: PostDragDrop event

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

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