***************************************************
* Funcao.....:   Mensagem(cMsg, [nTempo])
* Proposito..:   Mostrar uma mensagem por nTempo
* Parametros.:   cMsg mensagem a ser exibida
*                nTempo tempo de exibição
* Retorna....:
* Observacao.:
*
Function Mensagem(cMsg, nTempo)

   DEFINE WINDOW frmMensagem AT 0,0 WIDTH 400 HEIGHT 100 TITLE 'Mensagem do Sistema...' MODAL NOSYSMENU
          @ 20,10 LABEL lblMensagem VALUE AllTrim(cMsg) WIDTH 300 CENTERALIGN BOLD
   END WINDOW

   frmMensagem.Center
   ACTIVATE WINDOW frmMensagem NOWAIT

   IF Empty(nTempo)
      nTempo:=3
   ENDIF
   DO WHILE nTempo>=0
      DO EVENTS
      Inkey(.5)
      nTempo:=nTempo-.5
   ENDDO
   frmMensagem.RELEASE

Return Nil