Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged

        ToolStripProgressBar1.Maximum = e.MaximumProgress

        ToolStripProgressBar1.Value = e.CurrentProgress

    End Sub