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