Sub Test() Dim s As Shape, ar As ArrowHead Set s = ActiveLayer.CreatePolygon(0, 0, 2, 2, 6, , , True) Set ar = s.CreateArrowHead() s.Delete Set s = ActiveLayer.CreateLineSegment(0, 0, 5, 5) s.Outline.Width = 0.1 s.Outline.EndArrow = arEnd Sub