FlagsColumn = B4XTable1.AddColumn("Flags", B4XTable1.COLUMN_TYPE_TEXT)
FlagsColumn.Width = 30%x '30% of device width
FlagsColumn.Searchable = False
FlagsColumn.Sortable = False
B4XTable1.RowHeight = 60dip
B4XTable1.AddColumn("Id", B4XTable1.COLUMN_TYPE_NUMBERS).Width = 20%x
B4XTable1.AddColumn("Name", B4XTable1.COLUMN_TYPE_TEXT).Width=30%x
B4XTable1.AddColumn("Alpha2", B4XTable1.COLUMN_TYPE_TEXT).Width =20%x
clmHidden=B4XTable1.AddColumn("Alpha3", B4XTable1.COLUMN_TYPE_TEXT)
B4XTable1.VisibleColumns.RemoveAt(B4XTable1.VisibleColumns.IndexOf(clmHidden))