Sub ConnectPage()
page.SetAcceptedLanguages(Array As String("en", "fr", "de", "nl"), "en")
ABM.LoadTranslations(File.DirApp & "/www/" & ABMShared.AppName & "/translations/")
Dim ActiveFoundLanguage As String = page.DetectLanguage(ws.UpgradeRequest.GetHeader("Accept-Language"))
page.SetActiveLanguage(ActiveFoundLanguage, "" )
...