New Observer (gb)
Dim hObserver 
As Observer
hObserver 
= New Observer ( Object As Object [ , After As Boolean ] )
 
Creates a new observer for the specified object.
If 
After is set to 
TRUE, then the observer will catch events 
after they have been processed.
In that case, it will not be able to cancel them.
Do not forget to put 
AS "EventName"
after the instanciation, to catch the events intercepted by the observer.