Sirve para crear un objeto de tipo observador que intercepta eventos antes de que ocurran. Es decir que intercepta el evento que va a ocurrir disparado por algún objeto, ejecuta su bloque de código y luego el evento continúa normalmente.


Dim Txt as textbox , obs as observer
obs =new observer(txt) ---> crear un observador para el objeto txt

Ahora observar el evento change
public sub obs_change
debug "primero ocurre esto" ---> aún no ha ocurrido el evento change del txt
end

public sub txt_change( )
debug "y esto despues"---> este es el evento change del txt
end


Si se cancela el evento en el bloque de código del observer el objeto (en este caso el txt nunca lo verá).

Dim Txt as textbox , obs as observer
obs =new observer(txt) ---> crear un observador para el objeto txt

Ahora observar el evento change
public sub obs_change
stop event
end

public sub txt_change( )
debug "nunca llega aquí"
end