Best way to create a crosshair?

Graphics 800,600,0,2
SetBuffer BackBuffer()
HidePointer()
While Not KeyDown(1)
	Cls
		mx=MouseX():my=MouseY()
			Line 0,my,800,my
			Line mx,0,mx,600
			Oval mx-20,my-20,40,40,0
	Flip
Wend

...... simple.