Sobre tu EDITO, ya lo se... La tengo separada...

A ver que debería pasar? La imagen se transforma automaticamente y ya no se ve así desde VB? O que el Splat te crea un Splash? xD

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

Nescafé

Espera, un sec.... A mi la imagen me sigue siendo igual, he ejecutado todo, que se supone que debería pasar?

Si lo ejecuto desde la aplicación esa que me has pasado no se ve nada de eso...

Ahora si lo vuelvo a ejecutar desde .NET no me va

No jodas, que tengo que ejecutar mi app desde ahí?

Estoy ciego, o no noto cambios en la imagen de Street Fighter...  

---

Espera, un sec.... A mi la imagen me sigue siendo igual, he ejecutado todo, que se supone que debería pasar?

Claro, es por eso que cuando pido soporte por MP no me lo dan XD
Ya lo entiendo... xD (hombre, lo suponía)

Pero Elektro mola, porque el te ayuda desde MP y no te obliga a que lo postee, no como otros (Dryv) 

A ver, soy así, me da mucho palo leer, y si leo, luego me cuesta entenderlo, y tengo que leer como 100 veces la misma cosa para enterarme.

---

SU p**a MADRE, es verdad! xDDDDDDD
Pero que cojones XDXDXD

LOL, vaya programa te estás montando... xD

Anda que no tienes suerte Snytax, Elektro haciéndote el code... xD
Que recuerdos...!

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?

Y como hago que las firmas coincidan? xD

Que son las firmas?

Lo del puntero seguro, el delegado, no me ha quedado muy claro...
Esto es mas difícil que vete tu a saber que cosa... xD

---

Esto es epico, si pongo este trozo de code:


No me sale ningún error