#DEFINE CRLF Chr(13)+Chr(10)#DEFINE VK_F12 123User Function Exemplo()Local cMensagem := ""Local oDialog := NilLocal oSay := Nil//+----------------------------------------------------------------------------+//|Cria o diálogo para exemplificar o uso do ProcessMessage |//+----------------------------------------------------------------------------+ oDialog := tDialog():New() oDialog:cTitle := "Exemplo de ProcessMessage" oDialog:nWidth := 800 oDialog:nHeight := 600 oSay := tSay():New(10, 10, {||; "Pressione e verifique o gerenciador de tarefas"}, oDialog, , , , , , .T., , , 200, 20) SetKey(VK_F12, {||ProcessMessage()})//+----------------------------------------------------------------------------+//|Apresenta o diálogo |//+----------------------------------------------------------------------------+ oDialog:Activate()Return