1Private WithEvents Document as HtmlDocument
2
3Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
4 'Se asigna el documento del WebBrowser para trabajar con sus eventos.
5 Document = WebBrowser1.Document
6 End Sub
7
8Private Sub Document_Click(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
9 If (WebBrowser1.Document IsNot Nothing) Then
10 Dim Elem As HtmlElement = WebBrowser1.Document.GetElementFromPoint(e.ClientMousePosition)
11 Elem.ScrollIntoView(True)
12 End If
13End Sub
14
15