WebBrowser提交网页表单怎么查找输入框

WebBrowser提交网页表单如何查找输入框
做了一个小程序，自动提交表单，
可   以   自     动   评.   论     博       客
代         码         如           下
－－－－－－－－－－－－－－－－－－－－－－－－
用了一个Command1和WebBrowser1控件
－－－－－－－－－－－－－－－－－－
Private   Sub   Command1_Click()
Dim   vDoc,   vTag
Dim   i   As   Integer

Set   vDoc   =   WebBrowser1.Document
For   i   =   0   To   vDoc.All.length   -   1
    If   UCase(vDoc.All(i).tagName)   =   "INPUT "   Or   UCase(vDoc.All(i).tagName)   =   "TEXTAREA "   Then
        Set   vTag   =   vDoc.All(i)
        If   vTag.Name   =   "oblog_Composition "   Then   vTag.Value   =   "好文章 "
        If   vTag.Type   =   "text "   Then
                Select   Case   vTag.Name
                Case   "oblog_Composition "
                    vTag.Value   =   "顶 "
                End   Select
        ElseIf   vTag.Type   =   "password "   Then
                Select   Case   vTag.Name
                Case   "strPassword "
                    vTag.Value   =   "012345678 "
                End   Select
        End   If        
        If   vTag.Type   =   "submit "   Then   '找到发表按钮。
        vTag.Select
        vTag.Click
        End   If      
    End   If  
Next   i
End   Sub
Private   Sub   Form_Load()
WebBrowser1.Navigate   "http://blog2.eastmoney.com/cloudzhou200,596841.html "       '软件一启动就导航到这个地址
End   Sub
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

这个程序在其他网页可以找到TEXTAREA或者text表单域输入框，可以运行成功。
但在这个网页，http://blog2.eastmoney.com/cloudzhou200,596841.html
因为使用的是iframe内嵌框架，输入框无法获取，请教如何解决？


------解决方案--------------------
别忘了引用Microsoft HTML object library