Log("CellClick: " & Col & " , " & Row)
rx = Row
language_name = Table7.GetValue(0,Row)
language_abv = Table7.GetValue(1,Row)
'Msgbox ("Language=" & language_name & " " & language_abv," ")
MapFileName = language_abv & ".map"
Log ("Mapfile name=" & MapFileName)
Dim m As Map = File.ReadMap(File.DirAssets, MapFileName)
For Each v As View In Page1.RootPanel.GetAllViewsRecursive
Log("--" & v & v.Tag)
If v Is Label And v.Tag <> Null And m.ContainsKey(v.Tag) Then
Dim lbl As Label = v
lbl.Text = m.Get(v.Tag)
Log(lbl.Text)
End If
Next
End Sub