#MOUSEEVENTF_WHEEL = $800
#WHEEL_DELTA = 120

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  TextGadget(2,10,10,400,20,"Taste ''W'' = Nach oben scrollen"+#TAB$+#TAB$+"Taste ''S'' = Nach unten scrollen",0)
  EditorGadget(1,10,30,480,210,0)
  SetActiveGadget(1)
  For a=1 To 50
    AddGadgetItem(1,-1,"Testzeile",0,0)
  Next
  AddKeyboardShortcut(0,#PB_Shortcut_W,1)
  AddKeyboardShortcut(0,#PB_Shortcut_S,2)
  
Repeat
EventID=WaitWindowEvent()
If EventID=#PB_Event_Menu
  Select EventGadget()
    Case 1
      SetActiveGadget(1)
      mouse_event_(#MOUSEEVENTF_WHEEL,0,0,#WHEEL_DELTA,0)
    Case 2
      SetActiveGadget(1)
      mouse_event_(#MOUSEEVENTF_WHEEL,0,0,-#WHEEL_DELTA,0)
  EndSelect
EndIf
If EventID=#PB_Event_CloseWindow
  Quit=1
EndIf
Until Quit=1
EndIf