PUBLIC ofrm1 ofrm1=NEWOBJECT("frm1") ofrm1.Show RETURN ************************************************** *-- Form: form1 (c:\program files\microsoft visual foxpro 8\timefll.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 03/15/04 11:20:06 AM * DEFINE CLASS frm1 AS form Top = 0 Left = 0 Height = 117 Width = 318 DoCreate = .T. Name = "Frm1" ADD OBJECT label1 AS label WITH ; Caption = "Testing", ; Height = 17, ; Left = 24, ; Top = 36, ; Width = 40, ; Name = "Label1" PROCEDURE myfunc THISFORM.label1.VISIBLE = !THISFORM.label1.VISIBLE ENDPROC PROCEDURE Destroy =killtimers() SET LIBRARY TO ENDPROC PROCEDURE Init SET LIBRARY TO c:\vfpstuff\timers\cpptimer.fll =InitTimers(1,20) =SetupTimer(1,1000,"_vfp.activeform.myfunc()") ENDPROC ENDDEFINE