Oi Geraldo,

Talvez você tenha que fazer um teste quando à existência do objeto em ActiveControl, assim:

IF TYPE("Thisform.ActiveControl") = "O"
  ...
ENDIF

Um abraço!