B4J Question b4xtable wrap text in rows

B4XTable1.MaximumRowsPerPage = 20
B4XTable1.BuildLayoutsCache(B4XTable1.MaximumRowsPerPage)
B4XTable1.RowHeight = 50dip
SetWrapText(NameColumn) 'for each relevant column

Private Sub SetWrapText(Col As B4XTableColumn)
    For i = 1 To Col.CellsLayouts.Size - 1
        Dim p As B4XView = Col.CellsLayouts.Get(i)
        Dim lbl As Label = p.GetView(Col.LabelIndex)
        lbl.WrapText = True
    Next
End Sub