窗体鼠标控制滚动条有关问题

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

在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 

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

------解决方案--------------------
是不是鼠标坏求？