我为webbrowser控件设置的进度条为什么不能用？

Question

怎么没有人回答啊、难道都回家过年去了吗？

Answer 1

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)    '设置进度条
    If ProgressMax = 0 Then Exit Sub
    picprogress.Min = 0
    picprogress.Max = ProgressMax
    If Progress = ProgressMax Or Progress <= 0 Then
        picprogress.Value = 0
    Else
        picprogress.Value = Progress
    End IfEnd Sub

Answer 2

不对，为什么看不到进度条动呢？

Answer 3

  不知道你怎么用，我这里是好的。