Try setting

DeskTop = .T.

>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