***** TEST.PRG
*****************
CREATE CURSOR Test (ITest C(10) NULL)
FOR asd = 1 TO 15
    INSERT INTO Test VALUES (IIF(asd%2==0,NULL,TRANSFORM(asd)))
NEXT
GO TOP

LOCAL m2 As Form
m2 = CREATEOBJECT("Form")
m2.AddObject("Grid1","Grid")
m2.Grid1.MemberClass = "MyColClass"
m2.Grid1.MemberClassLibrary = "Test.Prg"
m2.Grid1.AddColumn(1)
m2.Grid1.removeObject("Column1")
m2.Grid1.RecordSource = "Test"
m2.Grid1.Visible = .t.
m2.Show(1)

Define Class MyColClass As Column
  Add Object Text1 As TextBox WITH;
      NullDisplay = "***"

  Add Object Header1 As Header WITH;
      Caption = "AAAAAAAAAAA" 

  Sparse = .f.
Enddefine