VB 自动点击网页

http://www.sogou.com

<input type="submit" onmouseout="this.className='stb'" onmouseup="this.className='stb'" onmousedown="this.className='btnactive'" onclick="if(this.form.query.value=='')return false" id="stb" value="搜狗搜索" class="stb">

这个如何用VB编个自动点击？ document.all("stb").click
document.forms(0).submit webbrower1.document.all.stb.click 2楼的，点击进去了，但会在新IE里打开，怎么才能在本窗口打开啊 在资源管理器中添加 一个“WEB浏览器”，触发事件时，你就显示出这个窗体，在窗体中直接给它个网址就可以了。

补充：VB ,  基础类