方法:
WebBrowser1.Navigate "网址/文件"Browser1.GoBack      '回退                        '        }--->若无上一页/下一页时使用会产生错误(使用前最好用 On error resume next
Browser1.GoForward   '前进   /Browser1.Refresh     '刷新
事件:
Browser1_StatusTextChange(ByVal Text As String)    '状态栏文本改变,参数text为新值Browser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As ong) '页面打开进度
Browser1_DownloadComplete()       '下载完毕
Browser1_DocumentComplete(ByVal pDisp As Object, url As Variant)  '页面下载完毕
Browser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)                '打开链接前发生