Hola
Ahi te envio un prg completo. Cualquier duda me avisas, ok?
* Quitamos cualquier mensaje a pantalla
SET SYSMENU off
Set Sysmenu to
SET STATUS BAR ON
SET CENTURY ON
_Screen. Windowstate = 2
SET TALK OFF
SET PATH TO HOME()+ "Tablas",;
HOME() + "Forms",;
HOME() + "Prgs",;
HOME() + "Menues"
WITH _Screen
.Caption ="Sistema de Depuracion de Archivos"
.BackColor = RGB(255,255,255)
.Closable = .T. && Maximized
.MaxButton = .F. && Maximized
.WindowState = 2 && Maximized
.AddObject ( "Title1", "Title" )
.AddObject ( "Title2", "Title" )
.Title2.Top = .Title2.Top - 4
.Title2.Left = .Title2.Left - 4
.Title2.ForeColor = RGB ( 255, 0, 0 )
ENDWITH
Do Menu.mpr
DO FORM Principal
ON SHUTDOWN CLEAR EVENTS
READ EVENTS
*PARA DESACTIVAR MENSAJE ANTES DE CERRAR LA APLICACION
ON SHUTDOWN
CLEAR WINDOW
CLEAR ALL
CLOSE ALL
DEFINE CLASS Title AS LABEL
FontName= [Times New Roman]
FontSize= 28
Visible = .T.
Width = 800
Height = 125
Top = _Screen.Height - 530
Left = 20
Alignment = 2
Caption = [Depurar Archivos Logs]
ForeColor=RGB ( 192,192,192 )
BackStyle= 0 && Transparent
ENDDEFINE