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 = 0.5
tf.TileWidth = 0.5
tf.TileOffsetType = cdrTileOffsetRow
tf.TileOffset = 20
End Sub