DisplaySilhouette property example

Sub DisplaySilhouette_Example()
' This example returns the current setting of DisplaySilhouette.
    Dim bDisplaySilhouette As Boolean
    bDisplaySilhouette = ThisDrawing.preferences.DisplaySilhouette
    MsgBox "The DisplaySilhouette property is: " & bDisplaySilhouette
End Sub