Examples: PreviewDocLink property

This script displays the preview pane each time the user puts the cursor in a particular field.

Sub Entering(Source As Field)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  uidoc.PreviewDocLink = True
End Sub