ダウンロードの進行状況

私は、でウェブブラウザを作っています。
http://rucio.cloudapp.net/ThreadDetail.aspx?ThreadId=9661

ウェブブラウザ(WebBrowser1)を読み込んだときに、プログレスバー(ToolStripProgressBar1)の値(Value)をWebBrowser1の進行状況にし、
進行状況ラベル(ToolStripStatusLabel1)の内容を、「ページが表示されました。」や、「ページでエラーが発生しました。」などを表示するには、どうすればいいですか?

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

        BackgroundWorker1.RunWorkerAsync()

End Sub



Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged



        ToolStripProgressBar1.Value = e.ProgressPercentage



        ToolStripStatusLabel2.Text = e.ProgressPercentage



End Sub



Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork



        Dim i As Integer

        For i = 1 To 100

            System.Threading.Thread.Sleep(100)

            BackgroundWorker1.ReportProgress(i)



        Next



End Sub

ステータス文字列はStatusTextプロパティで参照可能です。

  

Private Sub WebBrowser1_StatusTextChanged( _

        ByVal sender As Object, ByVal e As EventArgs) Handles WebBrowser1.StatusTextChanged

    Me.ToolStripStatusLabel1.Text = WebBrowser1.StatusText

End Sub

進行状況とはこのようなことでよろしいでしょうか?

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

        ToolStripProgressBar1.Value = _

        Integer.Parse(System.Math.Floor((e.CurrentProgress / e.MaximumProgress) * _

        (ToolStripProgressBar1.Maximum - ToolStripProgressBar1.Minimum) + ToolStripProgressBar1.Minimum).ToString)

    End Sub

BackgroundWorker1_ProgressChangedはBackgroundWorkerの進歩状況を示すものであって、
WebBrowserとは関係ありませんね。

皆さんありがとうございます。

>進行状況とはこのようなことでよろしいでしょうか?
結構簡単なものが見つかりました。

    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

この動画は結構気に入ってます。
>http://www.youtube.com/watch?v=Gd5xh_HF7EE
「タブブラウザの作り方(基礎)」

練習で前に作ってみました。
参考になるでしょうか。

http://homepage1.nifty.com/yasunari/VB/VB2005/BasicTabBrowser.htm