谢谢啦!我最后是这样处理的:
在表单的load事件里面, 这样写的:
if type("windows_flag_101")="U"
public windows_flag_101
windows_flag_101=1
else
return .F.
endi
............................
在表单的退出按钮里写上:
if messagebox("确定要通出程序吗?",32+1,"退出")=1
rele windows_flag_101
thisform.release
endi