PatternCanvas.Clear

Sub Clear()

The Clear method clears a pattern canvas (filling it with white).

The following code example creates a new pattern fill in a 64 ?64 bitmap and applies the fill to a newly created rectangle:

Sub Test() 
 Dim c As New PatternCanvas 
 Dim n As Long 
 c.Size = cdrPatternCanvas64x64 
 c.Clear 
 For n = 2 To 63 Step 2 
  c.Line (0, 0)-(n, n), , B 
 Next n 
 With ActiveLayer.CreateRectangle(0, 0, 2, 2) 
  .Fill.ApplyPatternFill cdrTwoColorPattern 
  .Fill.Pattern.Canvas = c 
 End With 
End Sub