Sub Test()
Dim s As Shape
Dim tf As TextureFill
Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2)
Set tf = s.Fill.ApplyTextureFill("Dark Cloud", "Samples 8")
tf.Properties("Texture #:").Value = 150
tf.Properties("Top left:").Value = CreateRGBColor(255, 0, 0)
End Sub