In a WebBrowser project, a TreeView is used to list the History of the URLs a user has visited. Other than left-clicking any node in the TreeView to navigate to the URLs, users can also navigate by dragging & dropping a node in the WebBrowser. This is how I am implementing it:
VB Code:
  1. Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  2.     If (Button = vbLeftButton) Then
  3.         TreeView1.SelectedItem = TreeView1.HitTest(x, y)
  4.         TreeView1.Drag vbBeginDrag
  5.     End If
  6. End Sub
  7.  
  8. Private Sub wWeb_DragDrop(Source As Control, x As Single, y As Single)
  9.     If Not (Source.SelectedItem Is Nothing) Then
  10.         wWeb.Navigate2 Source.SelectedItem.Tag
  11.     End If
  12. End Sub
The above code implements the drag-drop feature exactly as I want it but strangely, the WebBrowser doesn't navigate to the Tag of the node (which is the URL) when a node is just left-clicked.

What am I missing here?