PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form DoCreate = .T. AutoCenter = .T. Caption = "Form1" AllowOutput = .F. Name = "Form1" ADD OBJECT grid1 AS grid WITH ; Height = 200, ; Left = 17, ; Top = 24, ; Width = 320, ; Name = "Grid1" PROCEDURE Load CLEAR SET ASSERTS ON CREATE CURSOR CA (id I DEFAULT RECNO(),fname C(100) DEFAULT REPLICATE(CHR(RAND()*255),rand()*100)) FOR n=1 TO 100 APPEND BLANK ENDFOR GO TOP ENDPROC PROCEDURE Activate ? "ActiveForm reactivated !!!!!",SECONDS() ENDPROC PROCEDURE grid1.AfterRowColChange LPARAMETERS nColIndex ASSERT .F. MESSAGE "MY MESSAGE" * workaround template * IF ! .F. AND MESSAGEBOX("MY MESSAGE",4+32,"Assert fail")=6 * SET STEP ON * ENDIF ENDPROC ENDDEFINEI have seen this thousands of times, but 10' in the past a ASSERT in to grid event sent to me in crash VFP to repetition.