隐藏与显示VFP主窗口的控制解决方案

隐藏与显示VFP主窗口的控制
我想刚开时就只有一个验证窗口，
然后验证，正确后，
就进入VFP自带的主窗口

登录窗口代码如下：

Try
Use   admin   In   0
Select   admin
Catch
Select   admin
Finally
gh=Alltrim(Thisform.txtgh.Value)
mm=Alltrim(Thisform.txtmm.Value)
Locate   All   For   gh==Alltrim(admin.工号)
If   Found()   Then
Messagebox( "登录成功 ",0+64, '信息提示 ')

***DO   FORM   zxyy
Thisform.Release
***_Screen=On&&&隐藏VFP窗口
Else
Messagebox( "你的输入有误，请重新输入！ ",0+16, '信息提示 ')
thisform.txtgh.Value   = " "
thisform.txtmm.Value   = " "
Endif

Endtry
请问怎么样才可以有控制VFP自已的主窗口啊。

------解决方案--------------------
_SCREEN.VISIBLE=.F.
DO FORM 登录窗口
READ EVENTS
_SCREEN.VISIBLE=.T.

运行你的菜单和主表单

如果登录成功，CLEAR EVENTS
如果登录失败，QUIT

------解决方案--------------------
_SCREEN.VISIBLE并不能仅隐藏VFP主窗口，最好的办法是注册
Declare integer FindWindow IN Win32api integer,string
Declare integer ShowWindow IN Win32api integer,Integer
来隐藏显示指定的窗口