B4J Question B4XTable change size of header information for big numbers

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    Dim data As List
    data.Initialize
    B4XTable1.AddColumn("col1", B4XTable1.COLUMN_TYPE_NUMBERS)
    B4XTable1.AddColumn("col2", B4XTable1.COLUMN_TYPE_NUMBERS)
    For i = 1 To 150000
        data.Add(Array(i, i))
    Next
    Wait For (B4XTable1.SetData(data)) Complete (Unused As Boolean)
    B4XTable1.lblNumber.TextSize = 14
End Sub

Private Sub B4XPage_Resize (Width As Int, Height As Int)
    B4XTable1.lblFromTo.Width = 300dip
End Sub