Transparency.Pattern

Property Pattern As PatternFill

The Pattern property returns a PatternFill object that represents the properties of a pattern transparency.

The following code example creates a rectangle and applies a two-color pattern transparency to it. It then skews the pattern by 20?

Sub Test() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) 
 s.Fill.UniformColor.RGBAssign 255, 0, 0 
 s.Transparency.ApplyPatternTransparency cdrTwoColorPattern, , 1 
 s.Transparency.Pattern.BackColor.GrayAssign 255 
 s.Transparency.Pattern.SkewAngle = 20 
End Sub