Private Sub lv_SelectedChanged (SectionIndex As Int, Cell As TableCell)
LogColor("SELECTED auto",Colors.Red)
Dim pd As PlaceData = Cell.Tag
et.Text = pd.Description
lv.Visible = False
et.ResignFocus
CallSubDelayed2(mCallback, mEventName & "_ItemClick", pd)
End Sub