Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
Geocoder1.Initialize("Geocoder1")
End If
Activity.AddMenuItem("GetFromLocationName", "GetFromLocationName")
Activity.LoadLayout("GetFromLocation")
ResultsList.TwoLinesLayout.ItemHeight=ResultsList.TwoLinesLayout.ItemHeight*2
ResultsList.TwoLinesLayout.Label.Height=-2
ResultsList.TwoLinesLayout.SecondLabel.Height=-2
End Sub