Sub Test() Dim s As Shape Set s = ActiveLayer.CreateEllipse2(4.25, 5.5, 2) s.Fill.ApplyFountainFill CreateCMYKColor(100, 0, 0, 0), CreateCMYKColor(0, 0, 100, 0) s.Outline.SetProperties 0.02, , CreateCMYKColor(0, 0, 100, 0) With s.CreateContour(cdrContourOutside, 0.1, 20).Contour .FillColor.CMYKAssign 0, 0, 100, 0 .FillColorTo.CMYKAssign 0, 100, 100, 0 .OutlineColor.CMYKAssign 100, 0, 100, 0 End WithEnd Sub