DisplaySilhouette property example

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