Sub Test() Dim c As New PatternCanvas c.Data = "%%['$aH,&A5&0C" With ActiveLayer.CreateRectangle(0, 0, 3, 3) .Fill.ApplyPatternFill cdrTwoColorPattern .Fill.Pattern.Canvas = c End WithEnd Sub