Me gustaría citarte algo que te dije, pero para lo que me va a servir...

Lee los eventos disponibles del webbrowser, ¿Ves alguno que se llame MouseMove, MouseDown, o MouseUp?, No Seazoux, no todos los controles tienen los mismos eventos.

Es más, con haber invertido 10 segundos para leer el mensaje de la excepción, habrías leido lo mismo que te acabo de explicar.

    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

Te vendría bien leer acerca del Framework de .NET. En tu error se ve claramente que la firma del delegado y la del método no coinciden.

El delegado lo utilizas al asociar el evento MouseDown al método WebBrowser1_MouseDown. ¿Qué significa éso? Qué estás asociando una acción sobre un método mediante un delegado, que no es más que un puntero seguro a una función (con puntero seguro me refiero a un puntero a bajo nivel utilizado para invocar funciones).

Vamos que cuando se produce ese evento tu llamas a dicha función. Asegúrate de que las firmas de ambos coinciden y espero vayas adquiriendo conocimiento.

Saludos!

Perdona si te ha sentado un poco mal, pero me ha molestado bastante porque solo con leer ya se sabe lo que pasa, no hay que ser un experto en el tema, y yo no lo soy.

Saludos.

No me ha molestado, es más tu llevas razón... Soy fallos muy tontos los míos (bueno, en realidad, yo no me doy cuenta de que está mal, por que soy primerizo bablablablalblalbla), además de siempre como tu sabes, me ha gustado el código ya hecho...  

---

Tengo que empollar mucho xD

Mirad lo que he hecho:

    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)
        AddHandler document.Body.MouseUp, New HtmlElementEventHandler(AddressOf WebBrowser1_MouseUp)
        AddHandler document.Body.MouseMove, New HtmlElementEventHandler(AddressOf WebBrowser1_MouseMove)
    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
 
    Private Sub WebBrowser1_MouseUp(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
        If e.MouseButtonsPressed = Windows.Forms.MouseButtons.Right Then
            MsgBox("Botón izquiero presionado")
        End If
    End Sub
 
    Private Sub WebBrowser1_MouseMove(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
        If e.MouseButtonsPressed = Windows.Forms.MouseButtons.Middle Then
            MsgBox("Botón izquiero presionado")
        End If
    End Sub

No me sale ningún error hasta que pulso F5, y volvemos a lo mismo de antes.

http://i.imgur.com/d0kYE1V.png

---

LELELELELELELELEL!

He quitado este código, y ya si va...

    Private Sub WebBrowser1_MouseDown( _
        ByVal sender As Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs) _
            Handles WebBrowser1.MouseDown
 
        Me.Cursor = Cursors.Hand
        Mover = True
        ' guarda rl el x e y donde se hizo clic
        p_Mouse.X = e.X
        p_Mouse.Y = e.Y
    End Sub
 
    Private Sub WebBrowser1_MouseMove( _
        ByVal sender As Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs) _
        Handles WebBrowser1.MouseMove
 
        If Mover Then
            ' referencia al control
            Dim unControl As Control = CType(sender, Control)
 
            ' cambiar las coordenadas
            Dim p1 As Point = unControl.PointToScreen(e.Location)
 
            Dim p2 As Point = unControl.Parent.PointToClient(p1)
 
            ' asignar el left y el top - laposición del mouse donde se hizo clic
            unControl.Left = p2.X - p_Mouse.X
            unControl.Top = p2.Y - p_Mouse.Y
 
        End If
 
    End Sub
 
    Private Sub WebBrowser1_MouseUp( _
        ByVal sender As Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs) Handles WebBrowser1.MouseUp
        ' cambiar el  cursors
        Me.Cursor = Cursors.Default
        ' flag para mover el control
        Mover = False
    End Sub

Y si me salta en MouseMove, es porque algo hice mal...

Voy a ver...

---

Estoy editando, con multiples comandos sacados de "por ahí"

    Private Sub WebBrowser1_MouseDown(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
        If e.MouseButtonsPressed = MouseButtons.Left Then MoveForm = True : MoveForm_Mouse_Position = e.Location
    End Sub
 
    Private Sub WebBrowser1_MouseUp(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
        If MoveForm Then Me.Location = Me.Location + e.Location - MoveForm_Mouse_Position
    End Sub
 
    Private Sub WebBrowser1_MouseMove(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
        If e.Button = MouseButtons.Left Then MoveForm = False
    End Sub

Pero tengo varios errores:



Si entiendo lo que pone, pero no se como solucionarlo

Segun tu, el EventArgs no es compatible con el Snippet que tu me distes y a su vez e.* no es compatible con HtmlElementEventArgs, que hago?

Cuando copio el error solo me sale Copy, y no me sale lo que tu dices... e.e

No se a lo mejor esta en otro lado...

---

Yo me he perdido, que puedo hacer al respecto, sobre el código...

Nuevo código más simplón:

    <System.Runtime.InteropServices.DllImport("user32.DLL", EntryPoint:="ReleaseCapture")> _
    Private Shared Sub ReleaseCapture()
    End Sub
 
    <System.Runtime.InteropServices.DllImport("user32.DLL", EntryPoint:="SendMessage")> _
    Private Shared Sub SendMessage( _
            ByVal hWnd As System.IntPtr, ByVal wMsg As Integer, _
            ByVal wParam As Integer, ByVal lParam As Integer _
            )
    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)
        AddHandler document.Body.MouseUp, New HtmlElementEventHandler(AddressOf WebBrowser1_MouseUp)
        AddHandler document.Body.MouseMove, New HtmlElementEventHandler(AddressOf WebBrowser1_MouseMove)
    End Sub
 
    Private Sub moverForm()
        ReleaseCapture()
        SendMessage(Me.Handle, WM_SYSCOMMAND, MOUSE_MOVE, 0)
    End Sub
 
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
                Handles MyBase.MouseMove, WebBrowser1.MouseMove
        If e.Button = MouseButtons.Left Then
            moverForm()
        End If
    End Sub

Como siempre HtmlElementEventHandler y MouseEventArgs con conflictos... XD