Sub Process_Globals
Private pg As Page
Private DocType As String = "CPF"
Private txtDocumentNumber As TextField
Private txtEmail As TextField
Private Loading As ActivityIndicator
End Sub
Public Sub Show
If pg.IsInitialized = False Then
pg.Initialize("pg")
pg.RootPanel.LoadLayout("RecoverPassword")
End If
Main.NavControl.NavigationBarVisible = True
Dim no As NativeObject = Main.NavControl
no.GetField("navigationBar").RunMethod("setBarTintColor:", Array(no.ColorToUIColor(Colors.ARGB(Null, 3, 150, 204))))
' no.GetField("navigationBar").SetField("translucent", False)
Main.NavControl.ShowPage(pg)
End Sub