Android Question Seeking Help with Event Triggers in B4XMainPage and Page1

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
  
    Private pa1 As Page1
    Private ctlNameValueMap As Map
    Public ctlIndexMap As Map
    Public ScrView As ScrollView'ignore
    Private Send As B4XView
End Sub

Public Sub Initialize
'    B4XPages.GetManager.LogEvents = True
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")

    ctlNameValueMap.Initialize
    ctlIndexMap.Initialize


    Dim a() As String=Array As String("edt1","edt2","edt3")
    Dim i As Int

    ScrView.Initialize(1000dip) '
    Root.AddView(ScrView,0,0,100%x,100%y)
    Sleep(0)
    For i=0 To a.Length-1
        Dim edtCtl As EditText'
        edtCtl.Initialize("edt")
        edtCtl.Tag=a(i)
        edtCtl.TextColor=xui.Color_Blue
        edtCtl.InputType=edtCtl.INPUT_TYPE_PHONE
          
        ScrView.Panel.AddView(edtCtl, 30dip,100dip* i, 300dip, 100dip)
        ctlNameValueMap.Put(a(i),(i+1)*1000)
        ctlIndexMap.Put(a(i),ctlIndexMap.Size) 
        edtCtl.Text=(i+1)*1000
    Next

End Sub


Private Sub Button1_Click
'    xui.MsgboxAsync("Hello world!", "B4X")
    pa1.Initialize
    B4XPages.AddPage("pa1",pa1)
    pa1.Show(Me)
  
End Sub


Private Sub edt_TextChanged (Old As String, New As String)
    Send=Sender
    Log (Send.tag)
    Dim t As String=ctlNameValueMap.Get(Send.tag)
    If t=New Then
        Send.TextColor=xui.Color_Blue
    Else
        Send.TextColor=xui.Color_Red
    End If
  
End Sub

Sub Class_Globals
    Private Root As B4XView 'ignore
    Private xui As XUI 'ignore
  
    Private mCallback As B4XMainPage
    Private CallbackCtlIndexMap As Map
  
  
  
End Sub

'You can add more parameters here.
Public Sub Initialize As Object
    Return Me
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    'load the layout to Root
    Root.LoadLayout("ex1")
  
End Sub

'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

Public Sub Show(Callback As Object)

    mCallback = Callback
    B4XPages.ShowPage(B4XPages.GetPageId(Me))
    CallbackCtlIndexMap=mCallback.ctlIndexMap
End Sub


Private Sub Button2_Click
  
    'Change the values of edt1 and edt2 on the B4XMainPage in this page.
    ReturnCtlValue("edt1","1001")
'    Sleep(0)
    ReturnCtlValue("edt2","2001")
'    Sleep(0)
    ReturnCtlValue("edt3","3001")
End Sub


Private Sub ReturnCtlValue(CtlName As String,New As String)
    Dim indexs As Int
    Dim mCallbackView As B4XView
  
    indexs=CallbackCtlIndexMap.Get(CtlName)
    Dim V As ScrollView=  mCallback.ScrView
    mCallbackView=V.Panel.GetView(indexs)
    mCallbackView.text = New
  
End Sub

edtCtl.InputType=edtCtl.INPUT_TYPE_PHONE
edtCtl.Text=(i+1)*1000