>Aproveitando o tema, e se eu colar essa classe no formulário? (na verdade não é essa classe, seria um ActiveX.
>Como eu faço este mesmo teste?
>
>PS: Neste caso, eu não teria o CreateObject certo? Existe uma meneira de testar?


Como Fabio bem disse ele não eh um ActiveX mais uma classe de VFP em um VCX.
Vc pode testar qualquer erro da forma que eu falei:

lcErroVelho = ON ERROR()
ON ERROR llErro = .T.
...
...
ON ERROR &lcErroVelho