利用了webbrowser控件的progresschange事件显示一个进度条；statustextchange事件更新状态栏窗格的信息，反映webbrowser控件的的状态。
private sub brwwebbrowser_downloadbegin()
progressshow true
end sub
sub progressshow(visible as boolean) ‘显示一个进度条
me.sbrhtml.panels(2).visible = visible
progress1.visible = visible
if visible then progress1.move sbrhtml.panels(2).left + 10, sbrhtml.top + (sbrhtml.height - sbrhtml.height) \ 2 + 10, sbrhtml.panels(2).width - 20
end sub
private sub brwwebbrowser_progresschange(byval progress as long, byval progressmax as long)
on error resume next
progress1.max = progressmax
if progress > 0 then
progress1.value = progress
else
progress1.value = progressmax
end if
end sub
private sub brwwebbrowser_statustextchange(byval text as string)
me.sbrhtml.panels(1).text = text
me.sbrhtml.refresh
end sub
private sub brwwebbrowser_downloadcomplete()
on error resume next
me.caption = brwwebbrowser.locationname
me.cboaddress = me.brwwebbrowser.locationurl ‘地址栏的现时地址
progressshow false
end sub
