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