主题：当前用户更改成功，请重新登录后，如何退出系统跳到登录见面

If userOrgan = _UserOrgan   AndAlso userRole = _UserRole    AndAlso userName = _UserName  Then
                         Messagebox.show("当前用户更改成功,请重新登录!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                         e.Form.Close
                         basemainform.visible = False
                         Forms("用户登录").Open()
                         RibbonTabs.SelectedTab = RibbonTabs("首页")
                         Forms("单位管理").Close
                         Forms("单位管理").Open
                         Forms("部门管理").Close
                         Forms("部门管理").Open
                         Forms("用户管理主窗口").Close
                         Forms("用户管理主窗口").Open                   
                   Else

红色那部分代码没起作用，还是留个框，

改成

e.Form.BaseForm.Opacity = 0

e.Form.Close