Publi yform yform=Newobject("asup") yform.Show Read Events Retu Define Class asup As Form Top = 13 Left = 32 Height = 286 Width = 603 Caption = "Form1" Name = "Form1" Add Object grid1 As Grid With ; recordsource="ycurs", ; Anchor = 15, ; Height = 265, ; Left = 12, ; Top = 12, ; Width = 577, ; Name = "Grid1" Procedure Load Set Date Long Create Cursor ycurs (xdate D,num i) For i=1 To 10 Insert Into ycurs Values (Date()-i,i*2546) Endfor Locate Endproc Procedure Init With This.grid1 .RecordSource="ycurs" .column1.Width=150 .column1.Alignment=2 .column2.Width=100 .column2.Alignment=2 .Refresh Endwith Endproc Procedure Activate Local M.MYVAR TEXT TO M.MYVAR NOSHOW For a TextBox control in a column, the column's Alignment setting determines alignment of text in the text box.See foxHelp/Alignment Property chapter! 0 Left. Aligns text flush left. 1 Right. Aligns text flush right. 2 Center. Aligns text in the horizontally and vertically centered on the control. 3 Automatic. (Default) ENDTEXT Messagebox(m.MYVAR,0+32+4096,'Text alignment in grid') Endproc Procedure Destroy Clea Events Endproc Enddefine * *-- EndDefine:asupRegards