Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
改成
Dim web As WinForm.WebBrowser = Forms("窗口1").Controls("WebBrowser1")