Private Sub btnPlace_Click
Dim diaObject As Object = Dia.ShowTemplate(SeT,"O K","","Cancel")
Sleep(100)
Wait For (diaObject) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
Dim n As Long = DateTime.Now
Dim s As String = SeT.SelectedItem
For i = 0 To fcList.Size - 1
Dim svs() As String = Regex.Split(",",fcList.Get(i))
If svs(0) = s Then
CityLatLon = fcList.Get(i)
End If
Next
End If
Dim et As Long = DateTime.Now
Dim tit As String = DateTime.GetSecond(et -n)
Log(tit)
Log(CityLatLon)
End Sub