主题：[求助]锁屏窗口消失了

菜单锁屏单击事件：

CurrentTable.Grid.Findform.Visible = False '隐藏主界面
Forms("锁屏").Open()  '开启锁屏窗口

锁屏窗口单击事件：

Dim UserName As String = e.Form.Controls("Label1").Text
Dim lo = Tables("用户表").Find(UserName,0,"用户名",False,True,False)
Dim dr = DataTables("用户表").DataRows(lo)
If e.Form.Controls("TextBox1").Text = dr("密码") Then
    e.Form.Close
    CurrentTable.Grid.Findform.Visible = True  '显示主界面
Else
    Messagebox.show("密码错误,请重新输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

现在问题就是运行单击菜单锁屏后，主界面和锁屏窗口都隐藏了，是怎么回事？能不能只隐藏主窗口，不隐藏锁屏窗口呢？锁屏窗口是我自己建的一个模式窗口。

很急，求指教啊！！！