'In B4XMainPage Sub Class_Globals
'Public AKA As Map
Private Sub B4XPage_Created (Root1 As B4XView)
AKA.Initialize
Dim thisXPage As XPage
thisPAge.Initialize
B4XPages.AddPage("InstanceName", thisPage)
AKA.Put("InstanceName".ToLowerCase, "InstanceName")
'...
End Sub
'In XPage code
log(B4XMainPages.MainPage.AKA.Get(B4XPages.GetPageId(Me)))