在資料視窗的文字框中使用滾輪上下翻頁～～

//函式宣告
//Subroutine keybd_event(int bVk , int bScan,int dwFlags, long dwExtraInfo)  LIBRARY "user32" Alias FOR  "keybd_event"
//在資料視窗的other事件中寫入下面的程式碼

Constant ulong VK_UP = 38   //&H26
Constant ulong VK_DOWN = 40   //&H28

int li_key
if message.number = 522 then
 if IntHigh(message.wordparm)=120 then
  li_key = VK_UP
 else
  li_key = VK_DOWN
 end if
 keybd_event(li_key , 0,0, 0)
 keybd_event(li_key , 0,2, 0)
end if