Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button1.Click
WebBrowser1.Navigate(TextBox1.Text)
End Sub
Private Sub WebBrowser1_NewWindow(ByVal sender As Object,ByVal e As System.ComponentModel.CancelEventArgs)Handles WebBrowser1.NewWindow
Dim Url As String=WebBrowser1.StatusText
e.Cancel=True
WebBrowser1.Navigate(Url)
TextBox1.Text=Url
WebBrowser1.ScriptErrorsSuppressed=True
End Sub
End Class
