CLOSE ALL USE HOME(1) + "labels" loForm = CREATEOBJECT("Form") loForm.AddObject("grid1", "grdBold") loForm.Grid1.SetAll("DynamicFontBold", "RECNO() = This.nBoldRow") loForm.grid1.Visible = .T. loform.autocenter=.t. loForm.Show(1) DEFINE CLASS grdBold as Grid nBoldRow = 0 PROCEDURE AfterRowColChange LPARAMETERS nColIndex This.nBoldRow = RECNO() This.Refresh ENDPROC ENDDEFINE