Thank you, Luis. Interesting approach. I will try it.
>>Hi Dennis,
>>
>>I did away with the X in the upper right corner by settting _screen.ControlBox = .F.
>>The _screen, as far as I know, does not have a QueryUnload method. But I will double check.
>>Thank you.
>>
>
>Hi Dmitry, instead of calling CLEAR EVENTS directly from the ON SHUTDOWN command, you could call a procedure like this:
>
>
>ON SHUTDOWN DO OnShutdown
>READ EVENTS
>*
>*
>PROCEDURE OnShutdown
>IF MESSAGEBOX('Dou you want to exit?', 4+ 32, 'Trying to exit') = 7
> RETURN .F.
>ENDIF
>CLEAR EVENTS
>ENDPROC
>*
>
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham