>If pemstatus(oCol,'Text1',5) > If Not pemstatus(oCol,'btext1',5) > oCol.AddObject('bText1',lcTextClass) > For i = 1 To Amembers(laProp,oCol.Text1) && Get all properties > If pemstatus(oCol.Text1,laProp(i),0) And laProp(i) # 'NAME' > Store Eval('ocol.Text1.'+laProp(i)) To ('ocol.bText1.'+laProp(i)) > Endif > Store oCol.Text1.Width To oCol.bText1.Width > Store oCol.Text1.Height To oCol.bText1.Height > oCol.Sparse=.T. > Endfor > oCol.CurrentControl = 'bText1' oCol.bText1.Visible = .T. > Endif > oCol.RemoveObject('Text1') >ENDIF >>