Sub Test() Dim s As Shape Dim crv As Curve Dim sp As SubPath Dim c As New Color Set crv = CreateCurve(ActiveDocument) Set sp = crv.CreateSubPath(0, 0) sp.AppendLineSegment 3.6, 0, False sp.AppendCurveSegment2 3.6, 0.8, 4.6, 3.1, 5.43, -1.6, False sp.AppendLineSegment 0, 0.8, False sp.AppendCurveSegment2 5, 4.8, 5, -2, 2, -5, False sp.Closed = True Set s = ActiveLayer.CreateCurve(crv) c.CMYKAssign 0, 0, 0, 100 With s.Fill.ApplyFountainFill(c, c, , 90, , , , cdrCustomFountainFillBlend).Colors .Add CreateCMYKColor(0, 0, 0, 0), 70 End WithEnd Sub