New Observer (gb)
Dim hObserver
As Observer
hObserver
= New Observer ( Object As Object [ , After As Boolean ] )
Crée un nouvel observateur sur l'objet indiqué.
Si
After est défini à
TRUE, alors l'observateur capturera les évènements
après qu'ils auront été traités.
Dans ce cas, il ne sera pas capable de les annuler.
Ne pas oublier de mettre
AS "EventName"
après l'instanciation, pour capturer les évènements interceptés par l'observateur.