Input Problem - Doing Something Wrong?

DOes this works for you?

Type TInfinitus
		Field PMouseDown[]
		Field CMouseDown[]
		
				
		Method Update( )
			PMouseDown = CMouseDown
			CMouseDown = [MouseDown( 1 ), MouseDown( 2 ), MouseDown( 3 )]
			
		End Method
End Type


Graphics 800,600,0,-1

Local Check:Tinfinitus = New TInfinitus

While Not KeyHit(Key_Escape)


Check.Update()

DrawText Check.CMousedown[0]+" : "+Check.CMousedown[1]+" : "+Check.CMousedown[2],20,20
DrawText Check.PMousedown[0]+" : "+Check.PMousedown[1]+" : "+Check.PMousedown[2],20,40

Flip
Wend

Because if I remember right the Key or Mouse states doesn't work without initializing a graphicdevice.

PS: The above code works for me.