窗体鼠标控制滚动条问题
窗体内容太高，一页显示不下，点了窗体自带滚动条

在OTHER里写了以下代码实现鼠标滚轮控制窗体上下滚动：

Choose Case Message.Number
Case 522

if IntHigh(message.wordparm) = 120 then

send(handle(this),277,2,0) //竖上

else

send(handle(this),277,3,0) //竖下

end if

End Choose

实际使用时发现，慢慢滚鼠标没问题，如果快速的向上滚鼠标滚轮。。窗体内容弹跳但是不上翻，请问有什么好点解决办法？

[解决办法]
是不是鼠标坏求？