set century on
set safe off
Set hour to 24
set exclusive off
SET MULTILOCKS ON
set sysmenu off 
SET REPROCESS TO AUTOMATIC

WITH _Screen
   .BackColor=rgb(192,192,192)         && Cambiar el color de fondo a gris
   .BorderStyle=3                      && Cambiar el borde a doble
*   .Closable=.T.                       && Quitar botones de control de ventana
*   .ControlBox=.T.
*   .MaxButton=.T.
*   .MinButton=.T.
*   .Movable=.T.
   .AutoCenter=.T.
   .WindowState=2
*   .Titlebar = 0
   .Minbutton=.T.
   .Autocenter = .T.
**   .Height=285
**   .Width=550
   .Caption="Criadero Finca California"            && Establecer un título
   .LockScreen=.F.                     && Activa el redibujado de pantalla
ENDWITH

oSplash = NEWOBJECT("_splash",SYS(5)+CURDIR()+"clases\_dialogs")
IF VARTYPE(oSplash) = "O" then
   oSplash.Picture = SYS(5)+CURDIR()+"images\fury.jpg"
   oSplash.height = 428
   oSplash.width = 300
   oSplash.label1.caption = ""
   oSplash.nDuration = 5
   oSplash.autocenter = .T.
   oSplash.show()
ENDIF
Open database SYS(5)+CURDIR()+"datos\fc.dbc" share
*set database to SYS(5)+CURDIR()+"datos\fc.dbc"
DO FORM SYS(5)+CURDIR()+"formularios\main.scx"
READ events