B4J Question Update text field from string name

    For Each vw As B4XView In Root.GetAllViewsRecursive
        If vw.tag = "TextField1" Then
            Dim tf As TextField = vw
            Log(vw.Tag & " text: " & tf.Text)
            tf.Text = "new text"
        End If
    Next

Log("new text in TextField1: " & TextField1.Text)

Log("getting the first view text: " & Root.GetView(0).Text)

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private TextArea1 As B4XView
    Private TextField1 As B4XView
    Private TextField2 As B4XView
    Private TextServiceDate As B4XView
    Private TextViews As Map
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Form")
    MainForm.Show
    TextViews = CreateMap("TextField1": TextField1, "TextField2": TextField2, "TextServiceDate": TextServiceDate, "TextArea1": TextArea1)
    PrintingModule.Initialize(10, 10)
End Sub

Private Sub BtnStore_Click
    PrintingModule.SSCells(2, 0) = TextView("TextServiceDate").Text
    Log($"Value stored in SSCells(2, 0)=${PrintingModule.SSCells(2, 0)}"$)
    PrintingModule.SSCells(2, 2) = TextView("TextArea1").Text
    Log($"Value stored in SSCells(2, 2)=${PrintingModule.SSCells(2, 2)}"$)
End Sub

Private Sub TextView (Key As String) As B4XView
    Return TextViews.Get(Key)
End Sub

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private xui As XUI
    Private Button1 As B4XView
    Private TextField1 As B4XView
    Private scene As JavaObject
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    MainForm.Show
    scene = (MainForm.RootPane).As(JavaObject).RunMethodJO("getScene",Null)
    setID(Button1,"OnlyButton")
    setID(TextField1,"TextField1")
   
    Log(getID(Button1))
    Log("log Button1 = " & Button1)
    Log("lookup      = " & lookUp("OnlyButton"))
    lookUp("OnlyButton").Text = "Press Me"
    Log("Btn txt = " & lookUp("OnlyButton").Text)
   
    ' set textfield text to buttons text
    lookUp("TextField1").Text = lookUp("OnlyButton").Text
End Sub

Sub Button1_Click
    xui.MsgboxAsync("Hello World!", "B4X")
End Sub

Sub setID(n As Node, id As String)
    (n).As(JavaObject).RunMethod("setId",Array(id))
End Sub

Sub getID(n As Node) As String
    Return (n).as(JavaObject).RunMethod("getId",Null)
End Sub

Sub lookUp(s As String) As B4XView
    Return scene.RunMethod("lookup",Array("#" & s))
End Sub