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