READ EVENTS 的有关问题

READ EVENTS 的问题？
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，没有其他语句，好好找一找。