Sub Process_Globals
Private BlankPage As Page
end sub
BlankPage.Initialize("BlankPage")
BlankPage.Title="Logout"
BlankPage.RootPanel.LoadLayout("frmBlankPage")
Dim b1 As BarButton
b1.InitializeText("Logout","NavButton1")
Page2.TopLeftButtons.Clear
Page2.TopLeftButtons=Array(b1)
'Custom
OpenAutoLoginFile
Sub Page2_BarButtonClick(Tag As String)
If Tag="NavButton1" Then
'Custom
ResetLoginFile
BlankPage.HideBackButton=True
NavControl.ShowPage(BlankPage)
End If
End Sub