>>Hi
>>
>>I have a program which runs in a Windows 10 machine with the following code at the end of the program. The program runs every hour and usually takes about 20 minutes
>>
>>About twice a day it hangs up with a message "cannot quit visual Foxpro" Any ideas why?
>>
>>Colin
>>
>>
>>
>>IF (lcContentType = NULL ) THEN
>> =MESSAGEBOX(loEmail.LastErrorText)
>>wait window "err"
>>
>>ENDIF
>>lnSuccess = loMailman.SendEmail(loEmail)
>>eccmail = ""
>>SET SAFETY on
>>
>>endif
>>quit
>
>Try adding
>
>on shutdown
>clear all
>
>before quit.

Thanks Naomi I will try it