pour savoir si vous faite rouler la souris dans un sens ou dans l'autre, il vous suffit d'utiliser l'instruction mouse.delta.
Ainsi en montant vous recuperez un integer de valeur 1 et en descendant un variant de valeur -1.
voici le code de l'application :
' gambas class File PUBLICSUB _new() END PUBLICSUB form_OPEN()
me.center END PUBLICSUB form_mousewheel()
label1.text = mouse.delta
select case label1.text
case 1
label2.text = "monter/up"
case -1
label2.text = "descENDre/down" END select END PUBLICSUB button1_click()
me.CLOSE END