Need function to draw wide lines

Thanks a lot!

I manage to make a function by myself at the end:

For x=-1 To 1 Step 1
For y=-1 To 1 Step 1
Line x1+x,y1+y,x2+x,y2+y
Next
Next

:)

I will try the arrow funcion later.