The Index property returns the index number of a pattern canvas in the list of available patterns. This property returns 0 if the pattern is not from the PatternCanvas collection.
Examples:
The following VBA example creates a sample tile of each available pattern fill.
Sub Test()
Dim c As PatternCanvas
Dim y As Long
For Each c In PatternCanvases
y = c.Index
With ActiveLayer.CreateRectangle(0, (y - 1) / 2, 3, y / 2)
.Fill.ApplyPatternFill cdrTwoColorPattern,, y
End With
Next c
End Sub