Sorry for the confusion, here are things again. The problem is that only the first character of the textbox is showing. The header is showing fine.

This is for my "GridGeneral" class, which will do these things:
    1. Display up to 5 columns passed to it, regardless of total columns in the cursor
    2. Size the columns to the width of the widest value in each column
    3. Keep the mouse pointer a pointer (I am going to stick a transparent box over the grid)
Obviously, I am only on step 1 of this. :)

In the INIT of the grid class, I create a cursor and bind the grid to it, so when the form starts there is something there. Then in a command button I have this code:

Use  "tablesamp" in 0 shared
With ThisForm.GridGeneral1
	.RecordSource = "tablesamp"
	.LayoutRefresh("cProj,The Project")
	.Refresh()
EndWith

Here is the LayoutRefresh code in the GridGeneral class. The header shows fine, but not the textbox stuff.

	Parameters cCol1 , cCol2 , cCol3 , cCol4 , cCol5 
		This.ColumnCount = 0
		If VarType(cCol1) ="C"
			oColItems = StrTran( cCol1 , "," , Chr(13) )
			nItemCount = ALines(arItems, oColItems, .t.)
		EndIf
		This.ColumnCount = This.ColumnCount + 1
		With This.Columns(This.ColumnCount)
			.Width = 50
			.Header1.Caption = arItems[2]
			.Header1.FontName = "Tahoma"
			.Header1.FontBold = .t.
			.Header1.FontSize = 8
		EndWith
		With This.Columns(This.ColumnCount).Text1
			.ControlSource = arItems[1]	
			.Value = arItems[1]
			.FontName = "Tahoma"
			.FontBold = .f.
			.FontSize = 8
			.Width = 50
		EndWith

Thanks again for taking a second look!