Addhandler

[Xmas79]

I have a problem with this code:

dim y as long =1
 
private sub mysub()
    dim x as new myclass()
    addhandler x.raisedevent,addressof eventdriver
 
    while y=1
        application.doevents
    end while
end sub
 
private sub eventdriver()
    y=0
end sub

I noticed that eventdriver is never fired. Why?