Help me, about 2D x,y

I tryed something which is not working, what am i doing wrong:

; Graphic Mode
Graphics 800,600,32

; Global Variables


While Not KeyDown(1)

Cls ; Always clear screen first

Rect 40,40,20,20,1 ; Draw the box in the current x,y location
Rect 40,100,20,20,1 ; Draw the box in the current x,y location

If KeyHit(208) Then
ch=GraphicsHeight() - 1
EndIf

Flip ; Flip it into view

Wend