网页类有关问题，请教怎么解决呢

网页类问题，请问如何解决呢？
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  If Not WebBrowser1.Busy Then

  For Each x In WebBrowser1.Document.All
  If x.tagName = "IMG" Then
  If InStr(x.src, "ValidatorCode.ashx?name=Comment") <> 0 Then  
  Set CtrlRange = WebBrowser1.Document.body.createControlRange()
  CtrlRange.Add (x)
  CtrlRange.execCommand ("Copy")
  pic1.Picture = Clipboard.GetData
  End If
  End If
  Next
  End If
End Sub


Private Sub Command1_Click()
  Dim vDoc, vtag
  Dim i As Integer
  Dim x, CtrlRange
  Set vDoc = WebBrowser1.Document
  For i = 0 To vDoc.All.length - 1
  If LCase$(vDoc.All(i).tagName) = "input" Or LCase$(vDoc.All(i).tagName) = "textarea" Then
  Set vtag = vDoc.All(i)
  Select Case vtag.Name
  Case "CommentCode"
  vtag.Value = Text2.Text '验证码
   
  Case "CommentText"
  vtag.Value = Text1.Text '内容
  Case "ComSend" '模拟 单击 发送
  vtag.Click
  End Select
  End If
  Next i
End Sub


Private Sub Form_Load()
  WebBrowser1.Navigate "http://www.zaidudu.com/book/7902/index.aspx"
End Sub


单击 command1 就把 text1 和 text2 的内容发送到网页上，但是，每次都提示说，验证码错误。。。。


请问：应该怎么解决呢？


[解决办法]
加上下列代码就行了:

VB code

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Dim frm As Form1Set frm = New Form1frm.Visible = TrueSet ppDisp = frm.WebBrowser1.objectEnd Sub