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