Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("ConnectionForm")
WEBView1.Initialize("WEBReturn")
Activity.AddView(WEBView1, 0dip, 0dip, 540dip, 960dip)
BingMapsKey="vvvvvvvvvvvvvvvvvvvvvvvv"
URLStr1="http://dev.virtualearth.net/REST/v1/Locations?countryRegion=nl&locality=" & Main.city & "&addressLine=" & Main.Street & "&key=" & BingMapsKey
'URLStr2 ="http://dev.virtualearth.net/REST/v1/Imagery/Map/" & MapType & "/" & POI.ActiveLat & "," & POI.ActiveLon & "/" & ZoomLevel & "?pp= " & POI.ActiveLat & "," & POI.ActiveLon & ";;1" & "&mapSize=360,640&dcl=1&key="& BingMapsKey
WEBView1.LoadUrl(URLStr1)
End Sub