顶层表单做主窗口，为什么执行后出现两个主窗口？
主程序代码：
程序代码：
MODIFY WINDOW SCREEN TITLE "***管理系统" ICON FILE 'digg.ico'
SET DEFAULT TO CURDIR()
Set Talk Off
Set Escape Off
Set Date To Long
Set Deleted On
Set Safety Off
Set Sysmenu Off
Set Century On
Set Century To 19
SET HOURS TO 24
SET PATH TO bak;导出数据;历年数据
CLEAR
CLEAR ALL
_SCREEN.Visible=.F.
DO FORM welcome.scx
WAIT window[] TIMEOUT 1.5
welcome.release
Do FORM 登录.scx
read events
在登录表单里输入正确的用户名密码后，点击“登录”click:do 程序2.prg
thisform.release
程序2代码：
程序代码：
PUBLIC tfdzgw
Do FORM 管理系统表单.scx &&&NAME tfdzgw
_SCREEN.Visible=.F.
READ events
管理系统表单的 activate 事件中加入如下代码，在测试时候工具栏、表单及表单中的菜单运行正常，但当用主程序启动的时候就出现了如上图的问题，，
程序代码：
IF VARTYPE(toptoolbar)#"o"
This.TopToolBar=NewObject("常用工具栏","appclass")
This.TopToolBar.show()
This.TopToolBar.dock(0)
endif
请高手指点这是怎么回事？？
[解决办法]
去掉
IF VARTYPE(toptoolbar)#"o"
This.TopToolBar=NewObject("常用工具栏","appclass")
This.TopToolBar.show()
This.TopToolBar.dock(0)
endif
就能试出来是不是工具栏的问题了。
这个问题需要逐一排除。分别注释掉你认为可能问题的代码，基本可以找出原因。
[解决办法]
猜谜能解决问题吗
