barre de cargement

Salut! je débute vraiment mais vraiment en VB net , j'utilise VB 2005 express,
Je cherche une personne pour m'expliquer de A à Z commen faire une barre de progression pour un navigateur WEB svp! J'ai déja écrit ce code:

Public

Class Form1

Dim i AsInteger = 0

Dim adresseTapee(8) AsString

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

WebBrowser1.Navigate(TextBox1.Text)

adresse()

 

EndSub

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

i = i - 1

WebBrowser1.Navigate(adresseTapee(i))

EndSub

Function adresse() AsInteger

i = i + 1

adresseTapee(i) = TextBox1.Text

Return i

EndFunction

PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

i = i + 1

WebBrowser1.Navigate(adresseTapee(i))

EndSub

PrivateSub Progress1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Progress1.Click

EndSub

End

Class