RotinaErro = ON("ERROR")
m.FormExiste = .T.
ON ERROR m.FormExiste = .F.
DO FORM MeuForm
ON ERROR &RotinaErro
If m.FormExiste = .F.
    MessageBox("FORMULÁRIO NÃO DISPONÍVEL")
EndIf