PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form Caption = "Form1" Name = "FORM1" ADD OBJECT command1 AS commandbutton WITH ; Top = 18, ; Left = 98, ; Height = 27, ; Width = 84, ; Caption = "STANDARD", ; Name = "Command1" ADD OBJECT command2 AS commandbutton WITH ; Top = 54, ; Left = 99, ; Height = 27, ; Width = 84, ; Caption = "INTERACTIVE", ; Name = "Command2" PROCEDURE checkevent LPARAMETERS interactive * THIS SIMULATE A INTENSIVE JOB FOR JU=1 TO 1000 NEXT IF m.interactive DOEVENTS ENDIF ENDPROC PROCEDURE command1.Click CREATE CURSOR TEST ( IH i ) FOR JU=1 TO 200000 APPEND BLANK NEXT SELECT * FROM TEST WHERE THISFORM.Checkevent() INTO CURSOR TEST NOFILTER USE ENDPROC PROCEDURE command2.Click CREATE CURSOR TEST ( IH i ) FOR JU=1 TO 200000 APPEND BLANK NEXT SELECT * FROM TEST WHERE THISFORM.Checkevent(.T.) INTO CURSOR TEST NOFILTER USE ENDPROC ENDDEFINEClick on standard, VFP no respond to the input, and not fire timers events.