>loForm = CreateObject('myForm') >loForm.Show(1) > >define class myForm as Form > add object myTimer as Timer with Interval = 1000 > > add object myLabel as Label with Caption = 'Firing timer', Visible = .f. > > procedure myTimer.Timer > this.Enabled = .f. > thisform.myLabel.Visible = .t. > thisform.DoSomething() > thisform.myLabel.Visible = .f. > this.Enabled = .t. > endproc > > procedure DoSomething() > Inkey(1) && Just delaying... > endproc >enddefine >