uses gdip

Screen 640,140,1
SetCaption "GDIPLUS LINES" 
SetSmoothMode 2

sys x
single mx, oA, oB

While Key(27)=0
ClsColor 55,255,255,255
For x=0 To sWidth Step 20
    mx = xMouse/10
    oA = Rand(-mx,mx)
    oB = Rand(-mx,mx)
    Line x+oA,20,x-oB,100,3,ARGB 55,0,0,0
Next
Flip
Wend
Ends