Так попробуй
Code
Graphics 800,600,0
SetBuffer BackBuffer()
While Not KeyHit(1)
Cls
Color 255,255,255:Rect 300,100,180,30,0
Color 255,255,255:Rect 300,140,180,30,0
Color 255,255,255:Rect 300,180,180,30,0
GetKeyMouse=MouseHit(1)
If MouseX()>300 And MouseY()>100 And MouseX()<480 And MouseY()<130 And GetKeyMouse=1 Then change=1
If MouseX()>300 And MouseY()>140 And MouseX()<480 And MouseY()<170 And GetKeyMouse=1 Then change=2
If MouseX()>300 And MouseY()>180 And MouseX()<480 And MouseY()<210 And GetKeyMouse=1 Then change=3
If change=1 Then Color 255,0,0:Rect 300,100,180,30,0
If change=2 Then Color 255,0,0:Rect 300,140,180,30,0
If change=3 Then Color 255,0,0:Rect 300,180,180,30,0:Flip:Delay(100):End
Flip
Wend
End