User Function Exemplo()Local oDialog := Nil//+----------------------------------------------------------------------------+//|Cria o diálogo para exemplificar o uso do SendToFore |//+----------------------------------------------------------------------------+ oDialog := tDialog():New() oDialog:cTitle := "Exemplo de SendToFore" oDialog:nWidth := 800 oDialog:nHeight := 600 oDialog:bInit := {||MsgInfo("Minimize a janela e aguarde 5s"), Sleep(5000), SendToFore()}//+----------------------------------------------------------------------------+//|Apresenta o diálogo |//+----------------------------------------------------------------------------+ oDialog:Activate()Return .T.