Sub Test() Dim s As Shape Dim sp As SubPath Dim crv As Curve Set crv = CreateCurve(ActiveDocument) ActiveDocument.ReferencePoint = cdrBottomLeft Set sp = crv.CreateSubPath(1, 1) sp.AppendLineSegment 1, 1 sp.AppendCurveSegment 3, 3 sp.AppendCurveSegment 5, 1 sp.AppendCurveSegment 7, 4 sp.AppendLineSegment 9, 0 sp.Nodes(2).Type = cdrSmoothNode sp.Nodes(3).Type = cdrSmoothNode sp.Nodes(4).Type = cdrSmoothNode sp.Nodes(5).Type = cdrSmoothNode Set s = ActiveLayer.CreateCurve(crv)End Sub