Sub CurveReverse() Dim s As Shape Set s = ActiveLayer.CreateLineSegment(0, 0, 5, 5) s.Outline.StartArrow = ArrowHeads(3) ActiveWindow.ActiveView.Zoom = 200 s.Curve.ReverseDirectionEnd Sub