API Documentation > CorelDRAW > 2025-v26 > PostScriptFill > IVGPostScriptFill
PostScriptFill.SetProperties method
Sets PostScript Fill Properties
Syntax:
Sub SetProperties(ByVal Param1 As Long, Optional ByVal Param2 As Long = 0, Optional ByVal Param3 As Long = 0, Optional ByVal Param4 As Long = 0, Optional ByVal Param5 As Long = 0)
Parameters:
Name Type Description
Param1
Long
Param2
Long
Specifies the second property of a PostScript fill. For example, the Param2 value of the Bars fill references the Spacing (%) of the fill.
Param3
Long
Specifies the third property of a PostScript fill. For example, the Param3 value of the Bars fill references the Maximum gray value of the fill.
Param4
Long
Specifies the fourth property of a PostScript fill. For example, the Param4 value of the Bars fill references the Minimum gray value of the fill.
Param5
Long
Specifies the fifth property of a PostScript fill. For example, the Param5 value of the Checks fill references the Line width value of the fill.
Remarks:
The SetProperties method allows you to set all the properties of a PostScript fill at the same time. The SetProperties method has placeholders for a maximum of five PostScript fill properties.
Examples:
The following VBA example applies applies the ColorBubbles pattern to a rectangle and specifies the following fill properties: Number of circles = 10, Max size=300, Min Size=100, Line Width = 26, and Random Seed = 10.
Sub Test()
Dim s As Shape
Dim pf As PostScriptFill
Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4)
Set pf = s.Fill.ApplyPostscriptFill("ColorBubbles")
pf.SetProperties 10, 300, 100, 26, 10 
End Sub