例: OnIntervalChange event

次の OnIntervalChange イベントは、現在の埋め込みスケジューラの間隔を表示します。

Sub Onintervalchange(Source As Notesuischeduler)
  Dim uisdr As NotesDateRange
  Set uisdr = Source.Interval
  Messagebox uisdr.StartDateTime.LocalTime + _
  " to " + uisdr.EndDateTime.LocalTime,, _
  "Interval"
End Sub