For i = 1 To CheckedColumn.CellsLayouts.Size - 1
Dim p As B4XView = CheckedColumn.CellsLayouts.Get(i)
Dim chk As CheckBox
chk.Initialize("chk")
p.AddView(chk, 0, 0, p.Width, p.Height) 'make width of chkbox same As Panel width
Dim B4Xcheck As B4XView=chk
B4Xcheck.SetColorAndBorder(XUI.Color_Blue,3dip,XUI.Color_Yellow,3dip)
Next