Dim BoothColumn As B4XTableColumn = B4XTableBookings.AddColumn("Booth", B4XTableBookings.COLUMN_TYPE_TEXT)
BoothColumn.Width = 80dip
Dim DateColumn As B4XTableColumn = B4XTableBookings.AddColumn("Date", B4XTableBookings.COLUMN_TYPE_TEXT)
DateColumn.Width = 80dip
Dim TimeColumn As B4XTableColumn = B4XTableBookings.AddColumn("Time", B4XTableBookings.COLUMN_TYPE_TEXT)
TimeColumn.Width = 50dip