PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show ACTIVATE SCREEN ? "grid top",OBJTOCLIENT(oform1.grid1,1) ? "header top",OBJTOCLIENT(oform1.grid1.Column1.Header1,1) RETURN DEFINE CLASS form1 AS form autocenter = .T. Caption = "Form1" BackColor = RGB(255,255,128) Name = "Form1" ADD OBJECT grid1 AS grid WITH ; ColumnCount = 2, ; GridLineColor = 255, ; HeaderHeight = 0, ; Left = 24, ; Top = 26 ENDDEFINE