Sub Test() Dim crv As Curve Dim s As Shape Dim sp As SubPath Set crv = Application.CreateCurve(ActiveDocument) Set sp = crv.CreateSubPath(1, 5) sp.AppendLineSegment 2, 0 sp.AppendCurveSegment2 5, 7, 6, 6, 3, 5 sp.AppendCurveSegment2 7, 2, 3, 6, 7, 1 sp.AppendLineSegment 9, 6 sp.Nodes(3).Type = cdrSmoothNode Set s = ActiveLayer.CreateCurve(crv)End SubYou can also use the New keyword to create a curve in memory.Dim crv As CurveSet crv = New Curve