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