https://foro.gambas-es.org/viewtopic.php?f=1&t=902&p=5088#p5088
-----------------------------------
abarzuaf
Lunes, 23 Agosto 2010, 04:13

Re: ¿Bugs En MouseWheel?
-----------------------------------
[code linenumbers=false syntax=gambas]PUBLIC SUB TextBox1_MouseWheel()
    
    SELECT CASE Mouse.delta
      
      CASE 1 
          PRINT "Rodar arriba"
      CASE -1 
           PRINT "Rodar abajo"
    
    END SELECT 

END[/code]

Saludos


