My code:
Private Sub wb_NewWindow1(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles wb.NewWindow
Dim thiselement As HtmlElement = wb.document.ActiveElement
Dim targeturl As String = thiselement.GetAttribute("href")
e.Cancel = True
Dim view As search = New search
view.wb.Navigate(targeturl)
view.Show()
End If
End Sub
Where wb = web browser.
Where search = form

New Topic/Question
Reply



MultiQuote


|