Progressive Bar based on Web Page Loading

[Lokiarmos]

i'm creating my own web broswers using the microsoft internet ecplorer component.

I've got it to work but now i want a progression bar when a page is loading. i can get it to work but when it finishes it continues to loop through and i can not enter addresses into the address bar but i can go through links on the web page though.

The following is the code that i am currently using.

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
PBValue = Progress
PBMValue = ProgressMax
If PBValue > -1 Then
    MyProgressBar1
Else
    ProgressBar1.Visible = False
    
End If
Label3 = PBValue
Label4 = PBMValue


End Sub
Private Sub MyProgressBar1()
ProgressBar1.Min = 0
ProgressBar1.Max = 1000000
If PBValue > PBMValue Then
    PBValue = PBMValue
Else
    ProgressBar1.Value = PBValue
End If

End Sub

My web browser is avaibale here if you want to have a look at all of my code.

http://ironknuckleofhyrule.tripod.com/VB6Programs/Browser.zip

Can anyone help me............

 

[judgehopkins]

http://www.aadconsulting.com/ezyprg.html

Judge Hopkins

http://www.psc.state.mo.us/adjudication.asp

There are only two rules for success: (1) Never tell everything you know.