Public oForm oForm = Createobject("myForm") oForm.Show Define Class myForm As Form DataSession=2 Add Object myGrid As Grid Procedure Load Select * From ; (_samples+'data\customer') ; into Cursor crsTest Readwrite Use In 'customer' Endproc Procedure Init With This.myGrid For ix=1 To .ColumnCount With .Columns(m.ix) .AddObject("myTextbox","myTextBox") .CurrentControl="myTextbox" .myTextbox.Visible = .T. Endwith Endfor Endwith Endproc Enddefine Define Class myTextbox As TextBox Procedure LostFocus Messagebox(This.Parent.ControlSource + ":" + ; Transform(Evaluate(This.Parent.ControlSource))) Endproc EnddefineCetin