Does anyone have ideas on how to stop users from going mouse
happy and clicking all over the place while a program is
processing. I have experienced problems when running large
SQL routines on a saturated network and users start clicking
here and clicking there. I have experienced everthing from
system lock-ups to GPFs. I wrote a little routine to control
this behavior in Loops, but I am looking for a better
alternative if anyone knows of one. The below code
demonstrates a way to control mouse clicks in a loop. Please
let me know if U have any other approaches...

FOR x=1 to 1000
WAIT WINDOW "Processing "+ALLTRIM(STR(x))+ " of 1000" NOWAIT
=inkey(.02,"HM") && Slight delay
IF MDOWN() = .T. && Catch Mouse Happy Users!
cMessageTitle = 'Warning Message'
cMessageText = 'Do NOT Press Mouse Until Application Completed!'
nDialogType = 0 + 48 + 0
* 0 = OK (Only) - Use constants from FoxPro.H file!
* 48 = ! mark icon
* 0 = 1st button is default
??CHR(007) && Sound a Bell
nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
ENDIF
ENDFOR && x=1 to 1000
CLEAR TYPEAHEAD && Clears keyboard buffer if any keystrokes pressed!
RETURN