Browser: code

Public Class Form1
Private Sub tlstrBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tlstrBack.Click
WebBrowser1.GoBack()
End Sub

Private Sub tlstrForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tlstrForward.Click
WebBrowser1.GoForward()
End Sub

Private Sub tlstrStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tlstrStop.Click
WebBrowser1.Stop()
End Sub

Private Sub tlstrRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tlstrRefresh.Click
WebBrowser1.Refresh()
End Sub

Private Sub tlstrHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tlstrHome.Click
WebBrowser1.GoHome()
End Sub

Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
txturl.Text = WebBrowser1.Url.ToString
End Sub

Private Sub txturl_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txturl.KeyPress
If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
WebBrowser1.Navigate(txturl.Text)
End If
End Sub
End Class

[VB Web] - [hlrnet] - [copyright]