I'm drawing a line from one place to another with this:

Dim Arrow As Mappoint.Shape
Set Arrow = oMap.Shapes.AddLine(oFrom, oTo)

Arrow.Line.EndArrowhead = True
Arrow.Line.Weight = 1
Arrow.SizeVisible = True

Is there anyway to make the Arrow head smaller? It's kind of big, and if I have many arrows on my map, It may look confusing.