Sub Test() Dim Frame As Shape Set Frame = ActiveLayer.CreateRectangle(0, 0, ActivePage.SizeWidth, _ ActivePage.SizeHeight) Frame.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), _ CreateRGBColor(0, 0, 0) Frame.OrderToFront Frame.Locked = TrueEnd Sub