Sub Test() Dim s As Shape Set s = ActiveLayer.CreateRectangle(0, 0, 5, 5) s.Fill.ApplyTextureFill "Blend Edges"End SubSub Test() Dim s As Shape Set s = ActiveLayer.CreateRectangle(0, 0, 5, 5) s.Fill.ApplyTextureFill "Alien Eyes", "Samples 9"End Sub