Private Sub DispSil_Example()
' This example returns the current setting of
' DisplaySilhouette.
Dim DispSil As Boolean
DispSil = ThisDocument.Preferences.DisplaySilhouette
MsgBox "The DisplaySilhouette property is: " & DispSil
End Sub