请帮我看看怎么webbrowser控件表单提交的问题

请帮我看看怎么webbrowser控件表单提交的问题

我想程序运行后能自动填写表单然后自动提交(提交是点击按钮)
程序如下
Private SubWebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
With WebBrowser1.Document
.frmLogin.userName.Value = "aaa"
.frmLogin.password.Value = "bbb"
.frmLogin.frmsubmit.Click
End With
End Sub

表单倒是全部填写上了
可是在.frmLogin.frmsubmit.Click事件的时候
程序提示
实时错误438
对象不支持该属性或方法

请问这是为什么，该如何解决

谢谢了

补充：VB ,  控件