Sub Test() Dim s1 As Shape, s2 As Shape Set s1 = ActiveLayer.CreateEllipse2(0, 0, 1) s1.Fill.UniformColor.RGBAssign 0, 128, 0 Set s2 = ActiveLayer.CreateRectangle(0, 0, 2, 2) s2.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), CreateRGBColor(255, 255, 0) s2.Outline.Type = cdrNoOutline s2.Transparency.ApplyTextureTransparency "Cosmic Energy", "" s2.Transparency.Freeze s2.ParentGroup.Move 1, 1End Sub