Código De Navegador Web

Public Class Form1

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

Me.Text = Me.WebBrowser1.DocumentTitle

Me.Direc.Text = Me.WebBrowser1.Url.OriginalString

End Sub

Private Sub Ir_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ir.Click

Me.WebBrowser1.Navigate(Me.Direc.Text)

End Sub

Private Sub Atras_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Atras.Click

If Me.WebBrowser1.CanGoBack Then

Me.WebBrowser1.GoBack()

End If

End Sub

Private Sub Adelante_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Adelante.Click

If Me.WebBrowser1.CanGoForward Then

Me.WebBrowser1.GoForward()

End If

End Sub

End Class

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.WebBrowser1.Navigate(Me.TextBox1.Text)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If Me.WebBrowser1.CanGoBack Then

Me.WebBrowser1.GoBack()

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

If Me.WebBrowser1.CanGoForward Then

Me.WebBrowser1.GoForward()

End If

End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

Me.Text = Me.WebBrowser1.DocumentTitle

Me.TextBox1.Text = Me.WebBrowser1.Url.OriginalString

End Sub

End Class

...