Sub Test() Dim s As Shape Set s = ActiveLayer.CreateRectangle(2, 2, 4, 4) s.Fill.ApplyUniformFill CreateRGBColor(255, 0, 0) s.CreateContour cdrContourOutside Set s = ActiveLayer.CreateRectangle2(1, 4, 5, 5) s.Fill.ApplyUniformFill CreateRGBColor(0, 255, 0) s.CreateContour cdrContourInside ActivePage.FindShapes(, cdrRectangleShape).CreateSelection ActiveSelection.ClearEffect cdrContourEnd Sub