VB中WebBrowser控件 的有关问题

VB中WebBrowser控件 的问题
WebBrowser 怎么实现进度条..
WebBrowser.Navigate www.baidu.com

加载有个缓冲进度条..加载完显示网页..


新手..求提供代码..

[解决办法]
添加ProgressBar部件，然后在WebBrowser1代码

VB code

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)    If ProgressMax = 0 Then Exit Sub    ProgressBar1.Max = ProgressMax    If Progress <> -1 And Progress <= ProgressMax Then        ProgressBar1.Value = Progress    End IfEnd Sub
[解决办法]
gip还有我