Private Sub Form_Load() Me.WebBrowser1.Navigate "http://www.baidu.com/ioooomg/slogo.gif" End SubPrivate Sub WebBrowser1_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean) MsgBox "出错了,错误号是:" & StatusCode End Sub
Me.WebBrowser1.Navigate "http://www.baidu.com/ioooomg/slogo.gif"
End SubPrivate Sub WebBrowser1_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean)
MsgBox "出错了,错误号是:" & StatusCode
End Sub