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