Sub Test() Dim s1 As Shape, s2 As Shape Set s1 = ActiveLayer.CreateEllipse2(3, 3, 2) s1.Fill.UniformColor.RGBAssign 255, 0, 0 s1.Outline.Width = 0.2 s1.Outline.Color.RGBAssign 0, 0, 255 Set s2 = s1.Outline.ConvertToObject s2.Move 1, 1End Sub