Best way to create a crosshair?

Its faster with images all around

and here it is, you asked for it...

change the comments around the rect drawing to see the difference with some combinations and possibly increase the loop amount

Const GW = 800
Const GH = 600

Graphics GW, GH, 0, 2

HidePointer

cv = CreateImage(1, GH, 1, 1)
SetBuffer(ImageBuffer(cv))
Rect 0,0,1,GH,1

ch = CreateImage(GW, 1, 1, 1)
SetBuffer(ImageBuffer(ch))
Rect 0,0,GW,1,1

ret = CreateImage(25,25,1,1)
MidHandle ret
SetBuffer(ImageBuffer(ret))
Oval 0,0,25,25,0


framet = CreateTimer(60)

Repeat
	
	SetBuffer(BackBuffer())
	WaitTimer(framet)
	msx = MouseX()
	msy = MouseY()
	Cls
	ms = MilliSecs()
	For a = 1 To 1000
		
		DrawImage cv, msx, 0
		DrawImage ch, 0, msy
		DrawImage ret, msx, msy
		
		
		;Rect msx, 0, 1, GH, 1
		;Rect 0, msy, GW, 1, 1
		;Oval msx-12, msy-12, 25, 25, 0
		
	Next
	Print (MilliSecs() - ms)
	Flip(False)

Until KeyHit(1)