[RESOLVED] Mouse buttons on WebBrowser

I am trying to get the mouse events on the WebBrowser.
I found the following code that will do one of the events - but I want it to do middle mouse button down AND middle mouse button up.
I have never used code like this before so I'm not sure how to modify it.
Thanks.

Code:

---

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        AddHandler WebBrowser1.Document.MouseDown, AddressOf eventSub
    End Sub

    Sub eventSub(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs)
        Dim event_html As New HtmlElementEventHandler(AddressOf wbMouseDown)
        event_html.Invoke(sender, e)
    End Sub

    Sub wbMouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs)
        If e.MouseButtonsPressed = Windows.Forms.MouseButtons.Middle Then
            MsgBox("middle down")
        End If
    End Sub

---

I found that the following code worked.

Code:

---

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        AddHandler WebBrowser1.Document.MouseDown, AddressOf eventSubdown
        AddHandler WebBrowser1.Document.MouseUp, AddressOf eventSubup
    End Sub

    Sub eventSubdown(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs)
        Dim event_html As New HtmlElementEventHandler(AddressOf wbMouseDown)
        event_html.Invoke(sender, e)
    End Sub
    Sub eventSubup(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs)
        Dim event_html As New HtmlElementEventHandler(AddressOf wbMouseup)
        event_html.Invoke(sender, e)
    End Sub

    Sub wbMouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs)
        If e.MouseButtonsPressed = Windows.Forms.MouseButtons.Middle Then
            MsgBox("middle down")
        End If
    End Sub

    Sub wbMouseup(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs)
        If e.MouseButtonsPressed = Windows.Forms.MouseButtons.Middle Then
            MsgBox("middle up")
        End If
    End Sub

---

In _DocumentCompleted add :

Code:

---

With WebBrowser1.Document
                AddHandler WebBrowser1.Document.MouseDown, AddressOf wb_MouseDown

---

then just add

Code:

---

Private Sub wb_MouseDown(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
  ' do what you like
    End Sub

---