>Procedure Myobj.AnyEvent
>
>Timer1.SetCanBeDone(.F.)
>* Do whatever you have to do
>Timer1.SetCanBeDone(.T.)
>
>Return
>
>Procedure Timer1.SetCanBeDone
>LParameters llCanIt
>
>This.CanBeDone = llCanIt
>
>Return
>
>Procedure Timer1.Timer
>
>If This.CanBeDone
>* Do whatever you have to do
>EndIf
>
>Return

Isn't this the equivalent of what I have?