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 = 20End Sub