Examples: PostDragDrop event

This PostDragDrop event displays the start and end times of a calendar view entry.

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