Examples:
The following VBA example creates a rectangle and then creates a clone of it. The original rectangle (control shape) is filled with a texture fill by referencing it through the CloneLink property.
Sub Test()
Dim s As Shape
Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2)
Set s = s.Clone(3, 0)
s.CloneLink.CloneParent.Fill.ApplyTextureFill "Patches 5C"
End Sub