Sub Test()
Dim s As Shape
Dim tf As TextureFill
Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4)
Set tf = s.Fill.ApplyTextureFill("Water Color")
tf.TileHeight = 2
tf.TileWidth = 2
tf.TransformWithShape = False
Set s = s.Duplicate(4, 0)
s.StretchEx 2, 3, 4, 0
End Sub