Sub Test() Dim s As Shape Set s = ActiveLayer.CreateEllipse2(5.5, 4, 2) s.Fill.UniformColor.RGBAssign 255, 0, 0 s.Outline.SetProperties 0.05, , CreateRGBColor(0, 255, 255) With s.CreateContour(cdrContourOutside, 0.5, 5, , , CreateRGBColor(255, 255, 0)).Contour .LinkAcceleration = False .ColorAcceleration = 50 .SpacingAcceleration = -50 End WithEnd Sub