例: OnBlur event (Field - LotusScript®)

次に示すのは、フォームの [Subject] フィールドに対する OnBlur イベントです。このイベントでは、ユーザーが値の入力を求められます。

Sub Onblur(Source As Field)
  Dim ws As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = ws.CurrentDocument
  If uidoc.FieldGetText("Subject") = "" Then
    uidoc.GotoField("Subject")
    Print "Subject cannot be blank"
  Else
    Print "Subject: """ & uidoc.FieldGetText("Subject") & """"
  End If
End Sub