Ok works fine, thank you very much!
At last I found were I was wrong..
I missed to declare evSource as Object...many thanks!!!
At last I found were I was wrong..
evSource:Object=EventSource() If evSource=window2 And window2<>Null FreeGadget window2
I missed to declare evSource as Object...many thanks!!!