Поймал!
Как оказалось проблемы создает ContainerGadget():
Код
#Include "window9.bi"
#define TXT_ZOOM 100
#define TOOLBAR 101
#define BUT 102
dim shared as HWND hwnd
dim shared as Integer zoom,event
hwnd=OpenWindow("",10,10,200,200)
UseGadgetList(hwnd)
ContainerGadget(TOOLBAR,10,10,100,100,0)
ButtonGadget(BUT,10,10,60,30,"button")
TextGadget(TXT_ZOOM,10,60,40,20,str(zoom))
Do
event = WaitEvent()
Select Case event
Case EventMouseWheel
if EventKEY<0 and zoom<4 then zoom+=1
if EventKEY>0 and zoom>0 then zoom-=1
SetGadgetText(TXT_ZOOM,str(zoom))
Case eventclose
Exit Do
End Select
Loop
Если нажать на кнопку, а затем покрутить колесом мыши, начнутся двойные срабатывания EventMouseWheel.
Как подружить ContainerGadget с колесом прокрутки?