>WITH This.MyGrid1 > .GridLines = 3 > .RecordSource = "TmpMatList" > .columncount = 3 > x=1 >. >. >. > x=2 >. >. >. > x=3 > .Columns(x).ControlSource = "TmpMatList.Picked" > .Columns(x).ReadOnly = .F. > .Columns(x).Header1.caption = "Order" > .Columns(x).Header1.FontBold= .T. > .Columns(x).Width = 40 > .Columns(x).RemoveObject("Text1") > .Columns(x).NewObject("Check1", "CheckBox") > .Columns(x).Check1.caption = "" > .Columns(x).Check1.Visible = .T. > .Columns(x).Check1.Enabled = .T. > .Columns(x).Check1.ReadOnly = .F. > .Columns(x).Sparse = .F. >ENDWITH >May be you need .Column(x).CurrentControl = 'Check1' ?