The only way i have solved this is to draw a line once then draw it again shorter with a bigger draw width

DrawWidth = 2
Line (3500, 1500)-(3500, 4000), vbRed
DrawWidth = 3
Line (3500, 1800)-(3500, 4000), vbRed
DrawWidth = 4
Line (3500, 2100)-(3500, 4000), vbRed
DrawWidth = 5
Line (3500, 2400)-(3500, 4000), vbRed
DrawWidth = 6
Line (3500, 2700)-(3500, 4000), vbRed
DrawWidth = 7
Line (3500, 3000)-(3500, 4000), vbRed
DrawWidth = 8
Line (3500, 3300)-(3500, 4000), vbRed
DrawWidth = 9
Line (3500, 3350)-(3500, 4000), vbRed

This will make an arrow shape...

Mark Strealy