Sorry your browser is not supported!

The below menu works great with keyboard commands but intermittant with mouse commands. Why don't my mouse commands work accurately?
Set Display Mode 800,600,16
Set Text Opaque
Sync On
Sync Rate 0
Set Text Opaque
Dim Label$(9)
Global Date$
Global Space$
Global Itm

Label$(0)=" Check Chum Command Center"
Label$(1)="Register No."
Label$(2)="SetUP"
Label$(3)="Codes"
Label$(4)="Pre-Assignments"
Label$(5)="Transactions"
Label$(6)="Queries"
Label$(7)="Balance"
Label$(8)="Help"
Space$=" "
Date$=Get Date$()
cls rgb(127,151,175)
set dir "E:\"

load image "ItmAimg.bmp",1
load Image "ItmBimg.bmp",2
load Image "ItmCimg.bmp",3
load Image "ItmDimg.bmp",4
load Image "ItmEimg.bmp",5
load Image "ItmFimg.bmp",6
load Image "ItmGimg.bmp",7
load Image "ItmHimg.bmp",8
load Image "ItmIimg.bmp",9
Start:
Paste Image 1,0,0
Get Image 10,0,18,800,150
sync
Caption(1)
PrnMenuBar
Menu$=""
Clear Entry Buffer
Do
sync
X=MouseX(): Y=MouseY()
If X>782 and Y "A" and Menu$ 19
If X>3 And X110 And X179 And X246 And X385 And X498 And X577 And X659 And X43 and Y57 and Y73 and Y88 and Y103 and Y118 and Y133 and Y148 and Y

for a start

If X>3 And X110 And X179 And X246 And X385 And X498 And X577 And X659 And X43 and Y57 and Y73 and Y88 and Y103 and Y118 and Y133 and Y148 and Y

seems to be acheiving sod all.. and will be if you are makeing theoretical boxs in which to click in which case it should be more along the lines of



start with the biggerst number then get smaller, once you've reached the smallest x value goto the next y value down and start the process again. This will check which box is being clicke adn so on

THANX
But I thought my code started with the smallest number and went to the larger number. I will try your example!

you can do it either way, it dosent realy matter, that's just the way i do it