TextureFillProperties.Count

Property Count As Long

The Count property returns the number of parameters that are available for a particular type of texture fill.

The Count property returns a read-only value.

The following code example applies a texture fill to a rectangle and displays the number of parameters that the texture contains:

Sub Test() 
 Dim s As Shape 
 Dim tf As TextureFill 
 Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) 
 Set tf = s.Fill.ApplyTextureFill("Vapor 2C") 
 MsgBox "Texture '" & tf.TextureName & "' has " & _ 
  tf.Properties.Count & " parameters" 
End Sub