Caro Geraldo,

Obrigado pelas dicas !

Agora o meu codigo ( beta ) funciona !!

Veja:

	PROCEDURE exibirmensagens( par_mensagem as Character,par_titulo as Character,par_tipo as Character, par_time as Integer  ) 
		IF EMPTY(par_mensagem) .or. ISNULL(par_mensagem) .or. TYPE("par_mensagem")<>"C"
			par_mensagem = ""
		ENDIF
		IF EMPTY(par_titulo) .or. ISNULL(par_titulo) .or. TYPE("par_titulo")<>"C"
			par_titulo = ""
		ENDIF
		IF EMPTY(par_tipo) .or. ISNULL(par_tipo) .or. TYPE("par_tipo")<>"N"
			par_tipo = 0
		ENDIF		
		IF EMPTY(par_time) .or. ISNULL(par_time) .or. type("par_time")<>"N"
			par_time = 0
		ENDIF
		=MESSAGEBOX(par_mensagem,par_tipo,par_titulo,par_time)
	ENDPROC

Ainda preciso completa-lo, mas a ideia é retornar o resultado do messagebox, gerar log, mandar email, cantar, dançar e muito mais ! E caso eu precise implantar algo novo no sistema de "alertas ao usuario", é só trabalhar neste codigo ( sem ficar procurando por inumeros messagebox dentro do sistema ). Concorda?