* Program: lanMess.prg ON SHUTDOWN quit _Screen.Visible=.f. DO tmess READ eventsand 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") ENDDEFINEThanks for any help