VB webbrowser 自动登陆问题 急!!!

写了一个自动登录程序,在有的网站用同样方法可以,下面这个不行,不知道为何?
>能写入username及password就是不能submit?
>错误提示 对象不支持该属性或方法 代码438
>谢谢.
>
>
>WebBrowser1.Navigate2 "http://202.84.17.88/chn"
>
>Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As
Variant)
>Dim doc As IHTMLDocument2
>Set doc = WebBrowser1.Document
>If WebBrowser1.Busy = False And URL = "http://202.84.17.88/chn" Then
>     '填充带输入标记的元素集合
>     Dim Inputs2 As IHTMLElementCollection
>     Set Inputs2 = doc.All.tags("INPUT")
>     '选择第一个输入标记
>     Dim Element As IHTMLElement
>     Dim Element1 As IHTMLElement
>'    Dim Element2 As IHTMLElement
>     Set Element = Inputs2.Item(0)
>     Set Element1 = Inputs2.Item(1)
>'    Set Element2 = Inputs2.Item(2)
>     '使用正确的界面
>     Dim InputElement(2) As IHTMLInputElement
>     Set InputElement(0) = Element
>     Set InputElement(1) = Element1
>'    Set InputElement(2) = Element2
>     InputElement(0).Value = "aaaaaa"
>     InputElement(1).Value = "111111"
>     '调用该页第一个窗体上的提交
>     doc.Forms.Item(0).submit