AfterLoad事件,加上代码
Dim web = e.Form.Controls("WebBrowser1").basecontrolweb.ScriptErrorsSuppressed = True