SET CLASSLIB TO Reloj.vcx _SCREEN.ADDOBJECT("Reloj","Reloj") _SCREEN.Reloj.TOP = 50 _SCREEN.Reloj.LEFT = 50 _SCREEN.Reloj.HEIGHT = 200 _SCREEN.Reloj.WIDTH = 200 _SCREEN.Reloj.ColorFondo = "RGB(255,255,192)" _SCREEN.Reloj.ColorBorde = "RGB(0,0,128)" _SCREEN.Reloj.ColorAgujas = "RGB(0,0,255)" _SCREEN.Reloj.VISIBLE = .T.