Private Function Arrow(x1 As Long, y1 As Long, x2 As Long, y2 As Long, Direction As Long) As Long

Dim xdiff As Long

xdiff = x2 - x1

xdiff = xdiff / 5

Form1.Line (x1, y1)-(x2, y2)

If Direction = 1 Then

x1 = x2 - xdiff

y1 = y2 - xdiff

Form1.Line (x2, y2)-(x1, y1)

y1 = y1 + (xdiff * 2)

Form1.Line (x2, y2)-(x1, y1)

Else

x2 = x1 + xdiff

y2 = y1 - xdiff

Form1.Line (x1, y1)-(x2, y2)

y2 = y2 + (xdiff * 2)

Form1.Line (x1, y1)-(x2, y2)

End If

End Function

Just pass it the four endpoints of the line, and the direction you want the arrow to point. 1 is right and 2 is left. It could be expanded to also include up and down, and probably diagonals also.