I'm trying to create a little app that runs as a top level form, I'm going to be running this as an EXE. The problem is when I run the exe, I get a flash and then it disappears, if I call up the taskmanager, it's running. I have to kill it from the taskmanager. I have a read events. The main program calls the code to create the form in code. Below is the code.

I have the calling program:

* Program: lanMess.prg
ON SHUTDOWN quit
_Screen.Visible=.f.
DO tmess
READ events

and the tmess.prg

oForm = CreateObject("Tform") 
oForm.Show(1) 
* end of main 

DEFINE CLASS Tform As Form 
    Width=520 
    Height=280 
    Caption="LAN Messenger" 
    BorderStyle=2 
    MaxButton=.F. 
    MinButton=.F. 
    Autocenter=.T.
    WindowState=1
    ShowWindow=2
    ADD OBJECT msg As Tmsg WITH Left=5, Top=5 

PROCEDURE Init 
    * a mailslot name automatically keeps all LAN users together in a group; 
    * currently "foxapp" name is used, in fact it might be any valid file name 
    * except some reserved names like "Messngr" or "BROWSE" 
    THIS.msg.TurnOn("foxapp") 
ENDDEFINE 

Thanks for any help