>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.