Private Sub DrawArrow(ByVal X As Single, ByVal Y As Single, ByVal Color As Long)
Line (X, Y)-(X, Y + 6.5), Color
Line (X + 1, Y + 0.5)-(X + 1, Y + 6), Color
Line (X + 2, Y + 2)-(X + 2, Y + 4.5), Color
PSet (X + 3, Y + 2.5), Color
End Sub