VB窗口调用一个页面

VB中的代码如下：Private Sub Form_Load()
'On Error Resume Next
    WebBrowser1.Left = 0
    WebBrowser1.Top = 0
    WebBrowser1.Width = Screen.Width
    WebBrowser1.Height = Screen.Height
    WebBrowser1.Navigate ("http://192.168.0.6/login.asp")

End Sub
我现在想让他通过http://192.168.0.6/login.asp登录后使这个VB窗口最大化。当退出时再使这个VB窗口最小化。