另外在帮助yuanbin的过程中，发现大家可能会犯的常见错误：

1、在关闭窗口后继续调用窗口控件，例如下面的代码：

e.Form.Close()
Vars("变量") =  e.Form.Controls("TextBox1").Value

窗口已经关闭，对象不存在了，所以自然出错。
如果你要调用窗口中的控件，必须在e.form.close语句之前调用，例如：

Vars("变量") =  e.Form.Controls("TextBox1").Value
e.Form.Close()

2、自定义登陆窗口的退出按钮代码为：
Syscmd.Project.Exit()

AfterOpenProject的代码为：

代码段一
forms("登陆窗口").Open
代码段二

如果用户在登陆窗口单击按钮，此时系统已经关闭，但是代码段二会继续执行，报错的概率极大。
所以我们最好增加一个逻辑变量，将退出按钮的代码改为：

Vars("变量") = True
Syscmd.Project.Exit()

将AfterOpenProject事件代码改为：

代码段一
Forms("登陆窗口").Open()
if Vars("变量") = true Then
   Return
Else
    代码段二
End If

只有这样处理，才能确保用户在登陆窗口单击退出按钮，系统已经退出之后，不会再有代码继续执行