主题：[求助]basemainform.visible = False 隐藏窗体和显示窗体

QQServer.ServerIp = e.Form.Controls("txtIP").Value '指定IP地址
QQServer.ServerPort = e.Form.Controls("txtPort").Value '指定端口
QQServer.HeartbeatInterval = e.Form.Controls("txtInterval").Value '指定心跳时间
QQServer.HeartbeatTimeout = e.Form.Controls("txtTimeOut").Value '指定心跳超时时间
QQServer.Start() '启动QQServer
MessageBox.Show("启动成功")
basemainform.visible = False
Forms("关闭窗体").Open

 实际上关闭窗体显示之后，QQServer窗体不隐藏

CaseStudy文件夹中QQServer 想在启动Server时就隐藏窗体，隐藏后显示一个输入密码的窗体，如果输入正确密码后，再显示QQServer窗体