Add a progresbar to your web browser
Ok, first add a progressbar. you may have to go to components and select "Microsoft windows common controls 6.0" Make a label also. also add a picturebox.
now add this code:
Code
Private Sub webbrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100
Label1.Caption = "Done"
ProgressBar1.Visible = False
Image1.Visible = True
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Visible = True
Image1.Visible = False
ProgressBar1.Value = Progress * 100 / ProgressMax
Label2.Caption = Int(Progress * 100 / ProgressMax) & "%"
End If
Exit Sub
End Sub
Now you have a progressbar!
now if you want it to scroll with the browser at the bottum, i added this code (mine were at the bottum left):
Code
Private Sub Timer2_Timer()
ProgressBar1.Top = Form1.ScaleHeight - 255
Label1.Top = Form1.ScaleHeight - 255
End Sub
1st you must make a timer called timer2, enable it, and give it a low interval from about 1-100.
Note: you may have to replace "255" according to your program.