请教下WebBrowser控件

请问下WebBrowser控件
大家好,请教一个WebBrowser的问题
MyControl.WebBrowser1.Navigate("URL"),页面加载成功后,点击页面里的超连接跳转到B页面，这个时候B页面会失去焦点，滚动条无法用鼠标滚轮实现上下滚动，必须点下下B页面的空白处才可以。请问设置什么属性可以解决该问题?谢谢!

[解决办法]
setfocus 呢
[解决办法]
WebBrowser1.setfocus 有效的啊，测试过了。是不是那个页面特殊啊，或者有页面错误。
[解决办法]
在document_complete加下
[解决办法]
试试下面的，刚学的方法：

VB code

'引用microsoft html objectDim WithEvents page As HTMLWindow2Private Sub Form_Load()    WebBrowser1.navigate "http://www.baidu.com"End SubPrivate Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)    Set page = Me.WebBrowser1.document.parentWindowEnd SubPrivate Sub page_onload()    WebBrowser1.SetFocusEnd Sub