For i = 1 To CheckColumn.CellsLayouts.Size - 1 'add custom check box to table
'Sleep(0)
Dim pnl As B4XView = CheckColumn.CellsLayouts.Get(i)
Dim ColCheckBox As CheckBox
ColCheckBox.Initialize("")
St.SetButtonTintList(ColCheckBox,Colors.Gray,SysDeclare.COLOR_DARK_NAVY)
pnl.AddView(ColCheckBox, 5dip, 5dip, CheckColumn.Width - 10dip, tblPhoneContacts.RowHeight - 10dip)
Next