vb.net 点击网页中的按钮怎么实现？

[美薇]

网页中的按钮元素，点击后可以转到其他页面：
<input name="Submit" class="button_query text_16 text_bold" style="width: 80px; height: 30px;" onclick="tj();" type="button" value=" 确 定 "/>
以前使用vb6可以用下面代码实现网页点击：
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To WebBrowser1.Document.All.Length - 1 '检测所有标签
If UCase(WebBrowser1.Document.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If WebBrowser1.Document.All(i).Type = "button" And WebBrowser1.Document.All(i).Value = " 确 定 " Then
WebBrowser1.Document.All(i).Click '点击提交了，一切都OK了
End If
End If
Next i现在改用vb2010,使用上面的代码出错： Dim vDoc, vTag
Dim i As Integer
vDoc = WebBrowser1.Document
For i = 0 To WebBrowser1.Document.All.Count - 1 '检测所有标签
If UCase(WebBrowser1.Document.All(i).TagName) = "INPUT" Then '找到input标签
vTag = vDoc.All(i)
If WebBrowser1.Document.All(i).Type = "button" And WebBrowser1.Document.All(i).Value = " 确 定 " Then
WebBrowser1.Document.All(i).Click() '点击提交了，一切都OK了
End If

End If
Next i

显示错误如下，请高手指点，应该怎么实现点击按钮，“
Type”不是“System.Windows.Forms.HtmlElement”的成员。
“Value”不是“System.Windows.Forms.HtmlElement”的成员。
“Public Event Click(sender As Object, e As System.Windows.Forms.HtmlElementEventArgs)”是事件，不能直接调用。请使用“RaiseEvent”语句引发事件。

[美薇]

已经解决了：

Dim i As Integer
            ' vDoc = WebBrowser1.Document
            For i = 0 To WebBrowser1.Document.All.Count - 1
                  If UCase(WebBrowser1.Document.All(i).TagName) = "INPUT" Then
                        '  vTag = vDoc.All(i)
                        If WebBrowser1.Document.All(i).DomElement.Type = "submit" And WebBrowser1.Document.All(i).DomElement.Value = "百度一下" Then 'And vTag.DOMELEMENT.Name = "Submit" 
                              WebBrowser1.Document.All(i).DomElement.Click() '点击提交了，一切都OK了
                              Exit Sub
                        End If
                  End If
            Next i

或者：

Dim A As HtmlElement
            For Each A In WebBrowser1.Document.GetElementsByTagName("INPUT")
                  If A.DomElement.Type = "submit" And A.DomElement.Value = "百度一下" Then
                        A.InvokeMember("Click")
                  End If
            Next

[无·法]

vb.net这么麻烦啊，把标准dom接口用法都改了，还是vb好直接和原生的dom对接