Sub CrossPointOffset() Dim s As Shape Dim spath As SubPath Dim cps As CrossPoints Set s = ActiveLayer.CreateLineSegment(0, 0, 4, 4) Set spath = s.Curve.CreateSubPath(0, 4) spath.AppendLineSegment 4, 0, False Set cps = s.Curve.Segments(1).GetIntersections(s.Curve.Segments(2)) s.Curve.Subpaths(1).BreakApartAt cps(1).OffsetEnd Sub