This.Interval = 0 This.Enabled = .F.The only way I could handle it was with a Form property lBusy:
If ThisForm.lBusy Then Return .F. Endif ThisForm.lBusy = .T. This.Interval = 0 This.Enabled = .F. *- ... other processing here *- Restore Interval and Enable This.Interval = 1000 This.Enabled = .T. ThisForm.lBusy = .F. Return .T.