At the bottom of this sub: Private Sub LoadData (Files As List), try to add this:
B4X:
Sleep(0)
B4XTable1.pnlHeader.Visible = False
B4XTable1.mBase.Top= -100dip '<--- you may have to play around with this
Wait For (B4XTable1.SetData(Data)) Complete (Unused As Boolean)