Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
           WebBrowser1.Navigate("http://google.com")
       End Sub
 
       Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
           Dim document As HtmlDocument = WebBrowser1.Document
           AddHandler document.Body.MouseDown, New HtmlElementEventHandler(AddressOf WebBrowser1_MouseDown)
       End Sub
 
       Private Sub WebBrowser1_MouseDown(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
           If e.MouseButtonsPressed = Windows.Forms.MouseButtons.Left Then
               MsgBox("Botón izquiero presionado")
           End If
       End Sub