代码如下：

乐博网lob.cn提示：调试环境为 vs2005 +  windows2003 / windows2008 / xp / vista + .NET Framework 2.0

Public Class WebBrowserForm
    Private Sub WebBrowserForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = http://www.lob.cn
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Windows.Forms.Cursor.Current = Cursors.WaitCursor  ''鼠标
        Me.Navigate(TextBox1.Text)
        Windows.Forms.Cursor.Current = Cursors.Default
    End Sub
    Private Sub ToolStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
        Dim i As Integer
        Select Case ToolStrip1.Items.Item(i).Text
            Case "前进"
                Try
                    WebBrowser1.GoForward()
                Catch ex As Exception
                End Try
            Case "后退"
                Try
                    WebBrowser1.GoBack()
                Catch ex As Exception
                End Try
            Case "主页"
                'WebBrowser1.p
                WebBrowser1.GoHome()
            Case "刷新"
                WebBrowser1.Refresh()
            Case "停止"
                WebBrowser1.Stop()
        End Select
    End Sub
    Private Sub Navigate(ByVal address As String)   '网页浏览 
        If String.IsNullOrEmpty(address) Then Return
        If address.Equals("about:blank") Then Return
        If Not address.StartsWith("http://") And Not address.StartsWith("https://") Then
            address = "http://" & address     ' 自动加http://
        End If
        Try
            WebBrowser1.Navigate(address)
        Catch ex As System.UriFormatException
            Return
        End Try
    End Sub
    Private Sub webBrowser1_Navigated(ByVal sender As Object, ByVal e As WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
        TextBox1.Text = WebBrowser1.Url.ToString()
    End Sub
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(13) Then
            WebBrowser1.Navigate(TextBox1.Text)
        End If
    End Sub
    Private Sub 打开ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开ToolStripMenuItem3.Click
        OpenFileDialog1.Filter = "All File(*.*)|*.*|Html文件|*.html|Htm文件|*.htm"
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            WebBrowser1.Navigate(OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub 关闭ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 关闭ToolStripMenuItem2.Click
        If MessageBox.Show("乐博网提示：是否关闭", "关闭", MessageBoxButtons.OKCancel) = Windows.Forms.DialogResult.OK Then
            Close()
        End If

    End Sub
End Class