Creare Tool Bar, Per FireFox e IE

Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
       ProgressBar1.Maximum = e.MaximumProgress
       ProgressBar1.Value = e.CurrentProgress
   End Sub

Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
       Try
       ProgressBar1.Maximum = e.MaximumProgress
       ProgressBar1.Value = e.CurrentProgress
       Catch ex As Exception
       End Try
   End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim WB As New WebBrowser
       WB.Dock = DockStyle.Fill
       Dim TP As New TabPage(CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle)
       Me.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
       TabControl1.TabPages.Add(TP)
       TP.Controls.Add(WB)

   End Sub