[2008] Progress Bar?

[Eilios]

I am trying to code a Web Browser so that when you try to surf the web, a Progress Bar starts up. This is what I tried,

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Bar
        WebBrowser1.Navigate(TextBox1.Text)
        ProgressBar1.Maximum = 100
        ProgressBar1.Step = 1
        Bar = ProgressBar1.Value

        For x = 0 To 100
            ProgressBar1.PerformStep()
        Next
        If Bar = 100 Then
            Bar.Value = 0
        End If
    End Sub

But it doesn't work. Any suggestions?