Sub ConnectNavigationBar(page As ABMPage) 'ignore
' Clear the dummies we created in BuildNavigationBar
page.NavigationBar.Clear
'lang switch
page.NavigationBar.AddTopItem("lang", "{NBSP}{NBSP}{NBSP}", "mdi-action-language", "", True)
For i = 0 To others.langs.Length - 1
Dim t As String = others.langs(i).ToUpperCase
page.NavigationBar.AddTopSubItem("lang", "lang_" & t, t, "", "")
Next
'where others.langs:
Dim langs() As String = Array As String("RU", "EN", "ES")