SolidFill property example

Private Sub SolidFill_Example()

     ' This example returns the current setting of SolidFill.

     Dim SolFill As Boolean

     SolFill = ThisDocument.Preferences.SolidFill

     MsgBox "The SolidFill property is: " & SolFill

End Sub