例: OLE カスタムコントロールを使用する

次の例は、新規文書の [本文] フィールドに新しいカレンダーコントロールを作成するか、既存文書の既存コントロールにアクセスして、週の初日を日曜日から月曜日に設定します。

Sub Postopen(Source As Notesuidocument)
  Source.EditMode = True
  Call Source.GoToField("Body")
  If source.IsNewDoc Then
    Set Cal = Source.CreateObject _
    ("Calendar", _
    "MSCAL.Calendar.7")
  Else
    Set Cal = Source.GetObject _
    ("Calendar")
  End If
  Cal.FirstDay = 2
 End Sub

次の例は、UI からフォームに挿入されたカレンダーコントロール構成要素に対する Click イベントを処理します。このスクリプトは、カレンダーコントロールでユーザーがクリックした日付を表示します。
```
Sub Click(Source As Calendar)
  Messagebox "You clicked on the following date: "_
  & Source.Month &"/" & Source.Day &"/"_
  & Source.Year
End Sub
```