1、窗口1 改成模式窗口;
2、代码改成
If e.Form.Controls("PassWord").Value = dr("Password") Then _UserName = UserName e.Form.BaseForm.Opacity = 0 e.Form.Close Forms("窗口1").open() basemainform.closeElse Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)End If