Sub Test() Dim s As Shape Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) s.Fill.ApplyPostscriptFill "Bars" s.Fill.PostScript.Properties(1) = 40End Sub