code:
			
				B4X:
			
		
		
		Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private xui As XUI 
    Private Button1 As B4XView
    Private TextField1 As B4XView
    Private TextField2 As B4XView
    Private lblResult As B4XView
End Sub
Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    MainForm.Show
    Dim r As Reflector
#region Secret
 '3 lines here...................................
#end region
End Sub
Sub Button1_Click
    Dim FirstNumber As Int = TextField1.Text
    Dim SecondNumber As Int = TextField2.Text
    lblResult.Text = SumInts (Array(FirstNumber, SecondNumber))
End Sub
Sub SumInts (Ints As List) As Int
    Dim sum As Int = 0
    For Each i As Int In Ints
        sum = sum + i
    Next
    Return sum
End Sub