Dim mapIntent As Intent
Dim URI As String
Dim country,city,code,street,number,tip As String
country=edit_1.Text
city=edit_2.Text
code=edit_3.Text
street=edit_4.Text
number=edit_5.Text
Select edit_6.Text
Case "drive"
tip="drive"
Case "walk"
tip="walk"
Case Else
tip="drive"
End Select
URI= "com.sygic.aura://address |" &country& "| "&city&"| "&code& "| "&street& " | "&number&" | "&tip&"
Log(URI)
mapIntent.Initialize(mapIntent.ACTION_VIEW,URI)
mapIntent.SetComponent("com.sygic.aura")
StartActivity(mapIntent)