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.OrderToBack Frame.Locked = TrueEnd Sub