Dim WithEvents Doc As HtmlDocument
Dim MoveElement As HtmlElement
Private Sub EnableElementMove()
If (WebBrowser1 IsNot Nothing) Then
Doc = WebBrowser1.Document
End If
End Sub
Private Sub Document_Click(ByVal sender As Object, ByVal args As HtmlElementEventArgs) Handles Doc.Click
If (MoveElement Is Nothing) Then
MoveElement = WebBrowser1.Document.GetElementFromPoint(args.ClientMousePosition)
Else
With WebBrowser1.Document
Dim TargetElement As HtmlElement = .GetElementFromPoint(args.ClientMousePosition)
If (TargetElement.CanHaveChildren) Then
TargetElement.AppendChild(MoveElement)
MoveElement = Nothing
End If
End With
End If
End Sub