最近我应VB编辑了个简单的网页浏览器是浏览一些网页时会出现错误提示。这是为什么有谁可以帮帮我
[img]http://kukugt.boyhu.net/vb错误.JPG[/img]
以下是我浏览器的VB源码
Dim httpstr As String

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Command2_Click()
WebBrowser1.Navigate Text1
End Sub

Private Sub Command3_Click()
WebBrowser1.Navigate Text2
End Sub

Private Sub Command4_Click()
WebBrowser1.Navigate Text3
End Sub

Private Sub Command5_Click()
WebBrowser1.Navigate Text4
End Sub

Private Sub Command6_Click()
WebBrowser1.Navigate Text5
End Sub

Private Sub Form_Resize()
    On Error Resume Next
    WebBrowser1.Width = Me.ScaleWidth - WebBrowser1.Left * 2
    'WebBrowser1 宽度等于 窗体宽度减去 WebBrowser1 左边据的二倍

    WebBrowser1.Height = Me.ScaleHeight - WebBrowser1.Top - WebBrowser1.Left
    'WebBrowser1 高度 对于 窗体高度 减去 WebBrowser1 上边据 在减去一个 左边据

End Sub

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
WebBrowser1.Navigate httpstr
Cancel = True
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Me.Caption = Text
httpstr = Text
End Sub