Why is this code not drawing lines?

BlitzPlus Forums/BlitzPlus Programming/Why is this code not drawing lines?

Why does this just give me a blank screen? ...
Graphics 800,600,0,0
SetBuffer BackBuffer()	
SeedRnd MilliSecs()

While Not KeyDown(1)

	Color Rnd(255),Rnd(255),Rnd(255)
	Line Rnd(800),Rnd(600),Rnd(800),Rnd(600)

Wend
End