Sub Test() Dim s As Shape Set s = ActiveLayer.CreateEllipse2(3, 3, 2) s.Fill.UniformColor.RGBAssign 255, 0, 0 With s.Outline .Width = 0.2 .Color.RGBAssign 0, 0, 255 .BehindFill = True End WithEnd Sub