PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form ADD OBJECT grid1 AS grid WITH ; ColumnCount = 3, ; Anchor = 5, ; Height = 200, ; Left = 27, ; Top = 42, ; Width = 320 ADD OBJECT command1 AS commandbutton WITH ; Top = 8, ; Left = 220, ; Height = 27, ; Width = 84, ; Caption = "click here" PROCEDURE call DEBUGOUT SECONDS(),RECNO() ENDPROC PROCEDURE Load CREATE CURSOR TEST (A I,B I,C I) FOR K=1 TO 300 APPEND BLANK NEXT ENDPROC PROCEDURE command1.Click * optimize and put this code into the grid class WITH THISFORM.GRid1.Columns[1] PRIVATE rowsData rowsData = 0 thisform.LockScreen = .T. .DynamicFontShadow = '_VFP.SetVar("rowsData",m.rowsData+1)' THISFORM.GRid1.Refresh .DynamicFontShadow = '' thisform.LockScreen = .F. ENDWITH this.Caption = TRANSFORM(m.rowsData) ENDPROC ENDDEFINE