主题：[灌水]关于网页加载完成，和去掉滚动条的事件。

'定义一个WebBrowser加载完成事件,(每当浏览器加载完成当前页面就会执行该事件)

Public Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) 

Dim web As System.Windows.Forms.WebBrowser = sender '把触发该事件的Sender转换为WebBrowser

If e.Url =  web.Document.Url Then’如果加载完成

    web.ScrollBarsEnabled= False'去掉滚动条

End If

End Sub