Please test this 1.20 graphics anomaly

I have tearing as well. Using timer events produces no tearing on my system

Strict

Local w = 1024, h = 768
Graphics (w,h,0,0)
Local timer:TTimer=CreateTimer(200)
Local x = 0, y=0
While Not KeyDown(KEY_ESCAPE)
	WaitEvent()
	If EventID()=EVENT_TIMERTICK
		Cls
		DrawRect (x,y,200,h)
		Flip
		x = x + 1
		If x > w Then x = 0
	EndIf
Wend

NVIDIA GeForce4 420 Go 32M|WinXP SP2|TabletPC