Sub Test() Dim s As Shape Dim seg As Segment Set s = ActiveLayer.CreatePolygon(3, 6, 7, 2, 3) s.ConvertToCurves s.Curve.Nodes.Range(2, 4, 6).Delete Set seg = s.Curve.Segments(2) seg.Previous.Type = cdrCurveSegment seg.Next.Type = cdrCurveSegment seg.Type = cdrCurveSegment seg.StartNode.Type = cdrSmoothNode seg.EndNode.Type = cdrSmoothNodeEnd Sub