Android Question Translating an old app to B4XPages: Code Flow in B4XPage_Created and B4XPage_Appear

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Wait For (ShowSplashScreen) Complete (Unused As Boolean)
    Root.LoadLayout("tmm_main_std")
    ... more code

  TMM_Preferences.Initialize
  ' The code was:
  B4XPages.AddPageAndCreate("B4XPTMM_PreferencesID", TMM_Preferences)
  ' And is now
  B4XPages.AddPage("B4XPTMM_PreferencesID", TMM_Preferences)
  ... some other code
End Sub

Private Sub B4XPage_Appear
    rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE)
    ' Activity_PermissionResult is called by the CheckAndRequest call
    Wait For B4XPage_PermissionResult (Permission As String, PResult As Boolean)
    If Not(PResult) Then
        Permissions_Denied
        Return
    End If
    .. more rp's ..
    Run_Main_Setup
End Sub

Sub Run_Main_Setup
  .. some code
  B4XPages.ShowPage("B4XPTMM_PreferencesID")
End sub

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    ....
    Private bPageCreated As Boolean
End Sub
'
Private Sub B4XPage_Created (Root1 As B4XView)
    'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
    Dim sCodeName As String = "B4XMainPage_Created"
    LogColor($"Sub: ${sCodeName}"$, ModColour)
    Root = Root1
    Root.LoadLayout("tmm_main_std")
    Try
        Dim cs As CSBuilder
        B4XPages.SetTitle(Me, cs.Initialize.Color(xui.Color_RGB(210,105,30)).Append("The Music Machine").PopAll)
        ' Initialize the TMM_Run activity class with TMM_RunPage
        TMM_Run.Initialize
        TMM_DBUpdates.Initialize
        ' Add the page before we call any wait for subs
        B4XPages.AddPage("B4XPTMM_RunID", TMM_Run)  
        .... etc
        For Each permission As String In Array(rp.PERMISSION_READ_PHONE_STATE,rp.PERMISSION_WRITE_EXTERNAL_STORAGE,rp.PERMISSION_RECORD_AUDIO)
            rp.CheckAndRequest(permission)
            Log("requesting: " & permission)
            Wait For B4XPage_PermissionResult (permission As String, Result As Boolean)
            If Not(Result) Then
                            Msgbox2Async ("You must restart The Music Machine and agree to all the permissions for The Music Machine to continue.", _
                    "The Music Machine", _
                    "", "OK", "",cmTMM.gbmpLogo36x36,False)
                Wait for MsgBox_Result
                cmTMM.gbAppClosing = True
                B4XPages.ClosePage(Me)
            End If
            .... etc
            bPageCreated = True
    Catch
        Dim sErrorMsg As String = "TBCI App Error: " & CRLF & LastException
        LogColor ($"${sCodeName}:${sErrorMsg}"$, Colors.Red)
        MsgboxAsync (sErrorMsg, sCodeName)
    End Try
End Sub
'           
Private Sub B4XPage_Appear
    Dim sCodeName As String = "B4XMainPage_Appear"
    LogColor($"Sub: ${sCodeName}"$, ModColour)
    LogColor($"Logs in Main are in this colour"$, ModColour)
    Start = DateTime.Now
    ' Not in the list? AddPermission(android.permission.WAKE_LOCK)
    ' Start the main setup routines
    Run_MainSetup1
    ' Ask if user wants to load updates
    Run_MainSetup2
    ' After PageCreated is complete, allow the flash screen to show for FLASHONSCREEN_MSECS then go to the Run page
    Do While Not(bPageCreated)
        Sleep(500)
    Loop
    LogColor($"B4XMainPage_PageCreated is finished: ${bPageCreated}"$, ModColour)
    B4XPages.ShowPage("B4XPTMM_RunID")
End Sub

Logger connected to:  samsung SM-P610
--------- beginning of main
Copying updated assets files (29)
** Activity (main) Create (first time) **
Sub: TMM_Main A_C
*** mainpage: B4XPage_Created
Sub: B4XMainPage_Created
dscale is 1.6780444444444444
Device Manufacturer:  Model:
Activity Width: 1200 Height: 1832 pnlBase Width: 1200 Height: 1832
Sub cmTMM.Initialize
Logs in the TMM code module are in this colour
    Device Scale: 1.5
    Height: 1928
    Width: 1200
    Screen Size: 9.462264450458417
requesting: android.permission.READ_PHONE_STATE
*** mainpage: B4XPage_Appear
** Activity (main) Resume **
Sub: Main A_R
Sub: B4XMainPage_Appear
Logs in Main are in this colour
Sub: B4XMainPage_Run_MainSetup1
Sub cmTMM.LoadSettings
Settings loaded is true
Sub: B4XMainPage_Run_MainSetup2
DB Update File Name will be MusicBase_Update.db
** Activity (main) Pause event (activity is not paused). **
*** mainpage: B4XPage_Disappear [mainpage]
Sub: B4XMainPage_Disappear
*** mainpage: B4XPage_PermissionResult [mainpage]
** Activity (main) Resume **
Sub: Main A_R
*** mainpage: B4XPage_Appear [mainpage]
result: android.permission.READ_PHONE_STATE, true
requesting: android.permission.WRITE_EXTERNAL_STORAGE
Sub: B4XMainPage_Appear
Logs in Main are in this colour
Sub: B4XMainPage_Run_MainSetup1
Settings loaded is true
Sub: B4XMainPage_Run_MainSetup2
DB Update File Name will be MusicBase_Update.db
** Activity (main) Pause event (activity is not paused). **
*** mainpage: B4XPage_Disappear [mainpage]
Sub: B4XMainPage_Disappear
*** mainpage: B4XPage_PermissionResult [mainpage]
** Activity (main) Resume **
Sub: Main A_R
*** mainpage: B4XPage_Appear [mainpage]
result: android.permission.WRITE_EXTERNAL_STORAGE, true
requesting: android.permission.RECORD_AUDIO
Sub: B4XMainPage_Appear
Logs in Main are in this colour
Sub: B4XMainPage_Run_MainSetup1
Settings loaded is true
Sub: B4XMainPage_Run_MainSetup2
DB Update File Name will be MusicBase_Update.db
** Activity (main) Pause event (activity is not paused). **
*** mainpage: B4XPage_Disappear [mainpage]
Sub: B4XMainPage_Disappear
*** mainpage: B4XPage_PermissionResult [mainpage]
** Activity (main) Resume **
Sub: Main A_R
*** mainpage: B4XPage_Appear [mainpage]
result: android.permission.RECORD_AUDIO, true
Requesting MANAGE_EXTERNAL_STORAGE permission
Requesting permission
Sub: B4XMainPage_Appear
Logs in Main are in this colour
Sub: B4XMainPage_Run_MainSetup1
Settings loaded is true
Sub: B4XMainPage_Run_MainSetup2
DB Update File Name will be MusicBase_Update.db
...