例: OnFocus event

次に示すのは、フォームの [Subject] フィールドに対する OnFocus イベントです。このイベントはデフォルト値を指定します。

Sub Onfocus(Source As Field)
  Dim ws As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = ws.CurrentDocument
  If uidoc.FieldGetText("Subject") = "" Then
    Call uidoc.FieldSetText("Subject", "New subject")
  End If
End Sub