PatternFill.Canvas

Property Canvas As PatternCanvas

Member of PatternFill

The Canvas property returns a PatternCanvas object that manipulates two-color bitmap patterns.

The following code example creates a new 16 ?16 checkerboard pattern and applies it to a rectangle:

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 With 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.