Sub Test() Dim s1 As Shape, s2 As Shape, s3 As Shape Dim eff As Effect Set s1 = ActiveLayer.CreateEllipse2(0, 0, 1) s1.Fill.UniformColor.RGBAssign 255, 0, 0 Set s2 = s1.Duplicate(4, 3) Set s3 = s1.Duplicate(8, 0) s3.OrderFrontOf s2 s2.Fill.UniformColor.RGBAssign 255, 255, 0 Set eff = s1.CreateBlend(s2) Set eff = s2.CreateBlend(s3) eff.Blend.FuseStartEnd Sub