B4J Question [Solved] TextSize in button change button's size

'define the button and add to the rootpane of the mainform
Dim btn As Button
btn.Initialize("btn")
btn.Text = "Button 1"
'h and w must have initial value > 0
MainForm.RootPane.AddNode(btn, 20,20, 1, 1)
Dim jo As JavaObject = btn
Dim h As Double = 15.0
Dim w As Double = 15.0
jo.RunMethod("setMinSize", Array(h, w))

#Region  Project Attributes
    #MainFormWidth: 600
    #MainFormHeight: 400
#End Region

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    'actually square root of the actual number
    Private NumberOfButtons As Int = 10
    Private buttons(NumberOfButtons, NumberOfButtons) As Button
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.SetFormStyle("UNIFIED")
    MainForm.Show
    MainForm.Title = "Dynamic Controls"
    For x = 0 To NumberOfButtons - 1
        For y = 0 To NumberOfButtons - 1
            Dim b As Button
            b.Initialize("btn")
            b.Text = 0
            b.TextSize = 18
            buttons(x, y) = b
            MainForm.RootPane.AddNode(b, 0, 0, 10, 10)
        Next
    Next
End Sub

Private Sub MainForm_Resize (Width As Double, Height As Double)
    Dim BtnWidth As Double = (Width - 10)/ NumberOfButtons
    Dim BtnHeight As Double = (Height - 10)/ NumberOfButtons
    For x = 0 To NumberOfButtons - 1
        For y = 0 To NumberOfButtons - 1
            buttons(x, y).SetLayoutAnimated(0, 5 + x * BtnWidth, 5 + y * BtnHeight, _
                BtnWidth - 1, BtnHeight - 1)
        Next
    Next
End Sub

Private Sub btn_Action
    Dim b As Button = Sender
    b.Text = b.Text + 1
End Sub