Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
Dim webEl As HtmlElement = WebBrowser1.Document.ActiveElement
Dim target As String = webEl.GetAttribute("href")
Dim newI As New Form1
newI.Show()
newI.WebBrowser1.Navigate(target)
e.Cancel = True
End Sub
, In fact, i can't get ot not to work 