SolidFill property example

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