如何在 HTMLDOMTextNode 中添加事件？？？

Question

Dim node As New HTMLDOMTextNode
 Set node = wsbMain.Document.createElement("input")
 node.Value = "Mybutton"
 node.Type = "Button"
 For i = 0 To node.Attributes.length - 1
     If node.Attributes(i).Name = "onclick" Then
         node.Attributes(i).Value = "this.style.display='none'"
     End If
 Next i
在这段话中，可以为我的 WebBrower 创建一个 Button 控件。然后分别为属性 value 和  type赋值。
最后发现了个问题，怎样添加事件？使用我这里的方法在IE中可以，在WEBBROWSER中就有问题了。
急``````````高手们，帮帮忙。一天了，眼睛都疼死了。

Answer 1

或者该问 在VB6中怎样使用attachEvent 方法。但里面有两个参数，分别是 event as string,  idisp as object我知道，第一个是写事件名，第二个是JS的函数地址，或函数。
但我这里是VB啊，我将JS做为字符串传进去试过没用。
该怎么办？？

Answer 2

feiyun0112还是不行！！帮忙`个位```：）