#Include "window9.bi"
Dim As Integer hwnd,zoom
hwnd=OpenWindow("",10,10,200,200)

Do
    Var 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
   ? zoom
  Case eventclose
   Exit Do
    End Select
Loop

#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