Wait For MapFragment1_Ready
gmap = MapFragment1.GetMap
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Log(Tracker.gpslat)
Log(Tracker.gpslong)
gmap.MyLocationEnabled = True
'gmap.MyLocation.Initialize(Tracker.gpslat,Tracker.gpslong)
Do While gmap.MyLocation.IsInitialized = False
Log("Location not initialized... Sleep a while...")
Sleep(250)
Log("Initialized---")
Loop
If gmap.MyLocation.IsInitialized Then
Dim CameraPosition1 As CameraPosition
CameraPosition1.Initialize(gmap.MyLocation.Latitude,gmap.MyLocation.Longitude, 17)
gmap.moveCamera(CameraPosition1)
End If
Dim strLoc As String
strLoc=gmap.MyLocation.Latitude & "/" & gmap.MyLocation.Longitude
Log(strLoc)
lastLocation.Initialize()
Else
Log("No permission!")
End If