在锁屏时出现怪异的现象，锁屏不起作用，菜单锁屏代码：

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

锁屏窗口中按钮代码：

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
    BaseMainForm.Visible = True  \'隐藏主界面
Else
    Messagebox.show("密码错误,请重新输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

锁屏界面：

此主题相关图片如下：qq截图20130802145658.png

现在打开项目后单击锁屏菜单按钮，只能出现一个锁屏窗口，主窗口却没有隐藏，输入解锁密码后，主窗口却隐藏了，锁屏窗口也不见了。

请教怎么改正呢？