>Ed,
>
>Here's the way i have it:
>
>IntroForm.Init()
>THISFORM.Timer1.RESET
>THISFORM.Label2.CAPTION = 'Version '+VERSION
>*!* set the properties of the form to remove the title bar from the form
>WITH THISFORM
> .CONTROLBOX = .F.
> .MINBUTTON = .F.
> .MAXBUTTON = .F.
> .MOVABLE = .F.
> .CAPTION = ""
> .AUTOCENTER = .T.
> .WINDOWTYPE = 1
>ENDWITH
>
>proc_1
>PROCEDURE intro
> _SCREEN.WINDOWSTATE = 1
> SET CONSOLE OFF
> DO FORM intro
>ENDPROC
>
>proc_2
>PROCEDURE filename
> IF !glIntro
> MESSAGEB("FATAL ERROR"+CHR(13)+"PROGRAM WILL SHUT DOWN" ,16,"Fatal Error")
> QUIT
> ELSE
> datafilename = lcPath + 'config.mem' &&create filename variable for tables
> IF !FILE(datafilename) && search for table file
>
>*!* do directory_screen in proc_library
> DO FORM setpath && do set path form
> SHOW WINDOW SCREEN && not a normal path so it is necessary to do for READ EVENTS
> READ EVENTS
>* _screen.windowstate = 0
> IF (lnError = 1)
> lnAnswer = MESSAGEB("If you cancel,"+CHR(13);
> +"you will quit the program."+CHR(13)+"Quit?",4+48+0,"Quit")
> IF lnAnswer = 6
> QUIT
> ENDIF
> ENDIF
> ELSE
> RESTORE FROM &datafilename ADDITIVE
> lcPathDBF = gacPath[1]
> _SCREEN.WINDOWSTATE = 0
> ENDIF
> ENDIF
> RETURN TO MASTER
>ENDPROC
>
>These are the code snippets relevant to what I asked. TIA
>
>Perry

Unfortunately, I still have to make assumptions. I guess that you are unhappy with
MESSAGEB("If you cancel,"+CHR(13);
+"you will quit the program."+CHR(13)+"Quit?",4+48+0,"Quit")
appeared after form1 get closed.
Is this true?
What closes Form1? Timer? What's the purpose of this accomodation?
BTW, if you will reply, don't cut off previous messages, please.