;Author: Danilo EnableExplicit Define EventID Procedure.w MouseWheelDelta() Protected x.w x.w = ((EventwParam()>>16)&$FFFF) ProcedureReturn -(x / 120) EndProcedure If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) TextGadget(1,10,10,100,20,"Mausrad nach",0) Repeat EventID=WaitWindowEvent() If EventID=#WM_MOUSEWHEEL If MouseWheelDelta()=1 SetGadgetText(1,"Mausrad nach unten") Else SetGadgetText(1,"Mausrad nach oben") EndIf EndIf Until EventID = #PB_Event_CloseWindow EndIf