主题：窗口为什么反应这么慢

Dim Bar As WinForm.NavBar
Bar = e.Form.Controls("菜单栏")
If Bar.SelectedPage.Butt Then
    Forms("企业共有框主页面").Show()
Else
    Forms("企业共有框主页面").Close
    Forms("公司信息").Close
End If
If Bar.SelectedPage.Butt Then
    Forms("员工共有框主页面").Show()
Else
    Forms("员工共有框主页面").Close
    Forms("员工信息").Close
Forms("员工信息共有窗口").Close
End If

能帮我看看吗？为什么每次切换窗口这么慢