There should only be one READ EVENTS for your entire application. READ EVENTS does not say stop program execution. It says, "Start looking for events". If you want the program to stop, you need a modal form.


>Hi All:
>
>My top-level program calls a menu.
>
>

>SET MESSAGE TO 'Setting up Files...'
>DO SetUpFiles WITH _screen.oStuff.lTest, _screen.oStuff
>SET MESSAGE TO ''
>
>llMenu = .t.
>PUSH MENU _msysmenu
>DO pm.mpr
>READ events
>
>do cleanup
>quit
>

>
>In the menu, one option calls a program - 'do foo'.
>
>In foo.prg:
>
>

>DO GenEmailFile WITH toStuff
>
>SELECT * ;
>	FROM TempMail ;
>	WHERE !EMPTY(tm_body) ;
>	INTO CURSOR curEmails
>
>DO FORM emaillst2
>READ events
>Messagebox('PROCESS COMPLETE!')
>

>
>Why does it display the messagebox before I exit from the form! And it makes no difference whether I have the READ EVENTS after the DO FORM or not!!
>
>Thanks,
>
>Yossi