SET TALK OFF
SET DELETED ON
SET CLASSLIB TO banquan
FM=CREATEOBJECT( "qidong ")
FM.SHOW
=SYS(2002)
WAIT " " TIMEOUT 2
=SYS(2002,1)
FM.RELEASE
DO FORM QIDONG.SCX NAME MS LINKED
READ EVENTS
这是一个简单的主程序：
QIDONG.SCX 为顶层表单
加了工具栏和菜单，运行正常。
在 QIDONG.SCX 中 do form1.scx 运行也正常 。
问题是在关闭form1（release form1)时连 QIDONG.SCX 一起关闭了，也就是说整个程序都退出了。
我把所有 clear events 语句都删了。
不知问题出在那里。
谢谢！
------解决方案--------------------------------------------------------
form1的关闭就用了release form1，没有其他语句，好好找一找。