CREATE CURSOR test (cField C(1), mField M) INSERT INTO test VALUES ("A", REPLICATE("X", 100)) loform = CREATEOBJECT("Form") WITH loForm .AddObject("Grid1", "Grid") WITH .grid1 .RecordSource = "test" .RecordSourceType = 1 .RowHeight = 60 .ColumnCount = 2 WITH .Column2 .Sparse = .F. .Width = 200 .AddObject("Edit1", "Editbox") .CurrentControl = "Edit1" ENDWITH ENDWITH .SetAll("Visible", .T.) .Show() ENDWITH