Sub Test() Dim s As Shape Dim tf As TextureFill Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4) Set tf = s.Fill.ApplyTextureFill("Banded malachite", "Samples") tf.Properties("Softness %:").Value = 80 tf.Properties("1st mineral:").Value = CreateRGBColor(255, 0, 0)End Sub