PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form DoCreate = .T. ShowTips = .T. Caption = "Form1" Name = "Form1" ADD OBJECT grid1 AS grid WITH ; ColumnCount = 6, ; Height = 200, ; Left = 28, ; RecordSource = "TEST", ; Top = 28, ; Width = 320, ; Name = "Grid1", ; Column2.Visible = .F.,; Column3.Visible = .F.,; Column5.Visible = .F.,; Column3.ColumnOrder = 2 PROCEDURE Load CREATE CURSOR TEST (A I) APPEND BLANK ENDPROC PROCEDURE Unload USE IN TEST ENDPROC PROCEDURE Init WITH this.grid1 .Column1.Header1.Caption = "Header1" .Column2.Header1.Caption = "Header2" .Column3.Header1.Caption = "Header3" .Column4.Header1.Caption = "Header4" .Column5.Header1.Caption = "Header5" .Column6.Header1.Caption = "Header6" .Column1.Header1.ToolTipText = "colonna 1" .Column2.Header1.ToolTipText = "colonna 2" .Column3.Header1.ToolTipText = "colonna 3" .Column4.Header1.ToolTipText = "colonna 4" .Column5.Header1.ToolTipText = "colonna 5" .Column6.Header1.ToolTipText = "colonna 6" ENDWITH ENDDEFINEMove mouse on Headers.