Public Sub ConnectPage()
'connect navigation bar
ConnectNavigationBar
'add components for the page
AdminAccess
page.SetFontStack("arial,sans-serif")
' this page uses uploads, so needs some settings
page.ws.session.SetAttribute("abmcallback", Me)
page.ws.session.SetAttribute("abmdownloadfolder", DownloadFolder)
page.ws.session.SetAttribute("abmmaxsize", DownloadMaxSize)
page.AddModalSheetTemplate(msLoginBuild)
page.Refresh ' IMPORTANT
' NEW, because we use ShowLoaderType=ABM.LOADER_TYPE_MANUAL
page.FinishedLoading 'IMPORTANT
page.RestoreNavigationBarPosition
page.ShowModalSheet("msLogin")
End Sub