控制浏览器控件的滚动条，总是没有反映，高手来看看是为什么

[tinafang]

我想在浏览器控件显示网页后，把滚动条滚动到最右下角
用了一下代码后无效，SendMessage函数总是返回零
大家帮忙看看这是为什么，多谢！！
_______________________________________________________________________
Private Sub Timer1_Timer()

If Web1.Busy Then Exit Sub
'WebHandle是浏览器控件的句柄
ret = SendMessage&(WebHandle, WM_VSCROLL, SB_BOTTOM, 0)
ret = SendMessage&(WebHandle, WM_HSCROLL, SB_RIGHT, 0)
timer1.enabled=false

End Sub

[用户 昵称]

sendmessage webhandle, WM_KEYDOWN, &H11, &H411D0001
sendmessage webhandle, WM_KEYDOWN, &H23, &H014F0001
sendmessage webhandle, WM_KEYUP, &H23, &HC14F0001
sendmessage webhandle, WM_KEYUP, &H11, &HC11D0001

搞定