例: CurrentField property

[Description] フィールドに次のスクリプトがあります。ユーザーがこのフィールドにカーソルを置くと、ステータスバーに「Welcome to the Description field. Describe the problem."というメッセージが表示されます。
```
Sub Entering(Source As Field)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Print( "Welcome to the " + uidoc.CurrentField +  _
  " field. Describe the problem." )
End Sub
```
[本文] フィールドに次のスクリプトがあります。ユーザーが [本文] フィールドから [Comments] フィールドにカーソルを移動させると、ステータスバーに「Thanks for visiting the Comments field」というメッセージが表示されます。CurrentField プロパティは、ユーザーがカーソルを別のフィールドに動かすとすぐに変更されます。
```
Sub Exiting(Source As Field)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Print( "Thanks for visiting the " +  _
  uidoc.CurrentField + " field.")
End Sub
```