在问一问题，上次忘问了！

获取验证码是可以了，但怎么去把验证码填进验证码框里呢？Private Sub Timer1_Timer()
On Error Resume Next
Dim d&, l&, s$, Temp&
Dim i As Integer
Dim Savetime As Double
Dim iptbox As String
    Dim CtrlRange, X
    Dim k As Boolean
List1.ListIndex = List1.ListIndex + 1
WebBrowser1.Navigate List1.Text
While timeGetTime < Savetime + 1500
DoEvents
Wend
Randomize
For d = 1 To Combo1.Text
 Temp = Int(Rnd * 2) '生成 0~1
 Select Case Temp
 Case 0
 s = s & Chr(Int(Rnd * 26) + 65)
 Case 1
 s = s & Chr(Int(Rnd * 10) + 48)
 End Select
Next d
If Text2.Enabled = True Then
WebBrowser1.Document.getElementByid("ti").Value = Text5.Text & " " & s
WebBrowser1.Document.getElementByid("co").Value = Text6.Text & " " & s
WebBrowser1.Document.getElementByid("Submit3").Click
End If
If Text2.Enabled = False Then
    WebBrowser1.Document.body.All("ti").focus
    SendKeys "{tab}"
    For Each X In WebBrowser1.Document.All
            If X.tagName = "IMG" Then
                    If X.Id = "y_img" Then
                            Set CtrlRange = WebBrowser1.Document.body.createControlRange()
                            CtrlRange.Add (X)
                            CtrlRange.execCommand ("Copy")
                            Image1.Picture = Clipboard.GetData
                            Image1.Width = 1575
                    End If
            End If
    Next
WebBrowser1.Document.body.All("ti").focus
iptbox = InputBox("", "验证码", "", 0, 0)
WebBrowser1.Document.getElementByid("ti").Value = Text5.Text & " " & s
WebBrowser1.Document.getElementByid("co").Value = Text6.Text & " " & s
WebBrowser1.Document.getElementByid("word1").Value = iptbox
WebBrowser1.Document.getElementByid("Submit3").Click
Timer1.Enabled = False
End If
While timeGetTime < Savetime + 1500
DoEvents
Wend
End Sub
请问这代码有错误的地方吗?为什么他不会再image1里显示验证码呢？http://topic.csdn.net/u/20080117/11/8eb64316-f74f-4229-a2d0-cfdb26c57469.html