请教 frame内文本框的自动输入怎么实现

请问 frame内文本框的自动输入如何实现?
'以下代码在www.google.com可以将设定的内容输入到   文本框,   但如果这个文本框是   frameset   内的一个   frame的,   如何完成类似的功能?
'同样,   如何提取   frame   中的列表数据(如成绩单,比赛结果...)?
Private   Sub   mAutoInput()
                On   Error   Resume   Next
                Dim   webDoc   As   Object   =   AxWebBrowser1.Document.all
                Dim   webTag   As   Object
                Dim   lengthTag   As   Integer   =   webDoc.length   -   1

                For   countTag   As   Integer   =   0   To   lengthTag
                        webTag   =   webDoc.item(countTag)
                        Select   Case   Strings.LCase(webDoc.item(countTag).tagname)
                                Case   "input "     '网页中的输入框
                                        Select   Case   Strings.LCase(webTag.type)
                                                Case   "text "           '文本
                                                        Select   Case   webTag.name
                                                                Case   "q "
                                                                        webTag.value   =   TextBox2.Text
                                                        End   Select
                                        End   Select
                        End   Select
                Next
                '许多网页表单，这一句简单代码即实现自动提交
                AxWebBrowser1.Document.forms(0).submit()
        End   Sub

------解决方案--------------------
帮顶
------解决方案--------------------
up 学习
------解决方案--------------------