使用webbrowser控件时的进度条：
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)'WebBrowser的Progress事件
If ProgressMax = 0 Then Exit Sub
ProgressBar1.Max = ProgressMax
If Progress <> -1 And Progress <= ProgressMax Then
ProgressBar1.Value = Progress
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024