uses gdip

Screen 320,240,1
SetCaption "LINE FOLLOWS ARROW"
sys font= LoadFont ("courier",24)
SetSmoothMode 4

single x = sWidth/2 
sys offset=10

While Key(27)=0
ClsColor 55,255,255,255
iF xMouse > x
   x += 0.5
   offset= -10
End iF   
iF xMouse < x
   x -= 0.5
   offset =10
End iF   
Line x,0,x,sHeight,2,ARGB 255,255,0,0
Line xMouse,yMouse,xMouse+offset,yMouse-10,4,ARGB 155,0,0,0
Line xMouse,yMouse,xMouse+offset,yMouse+10,4,ARGB 155,0,0,0
Line xMouse,yMouse,xMouse+offset*3,yMouse, 4,ARGB 155,0,0,0
Flip
SetFps 120
Wend
Ends