New Observer (gb)

Dim hObserver As Observer
hObserver = New Observer ( Object As Object [ , After As Boolean ] )

Crea un nuevo observador en el objeto especificado.

Si el valor de After se establece en TRUE, entonces el observador capturará los eventos después de que hayan sido procesados. En ese caso, no podrá cancelarlos.

No olvide poner: AS "EventName" Después de instanciar para poder capturar los eventos interceptados por el observador.