Wait For MapFragment1_Ready
Log("MapFrag Ready")
gmap = MapFragment1.GetMap
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
Log("Got here")
If Result Then
Log("Permission OK")
gmap.MyLocationEnabled = True
Dim cp As CameraPosition = gmap.CameraPosition
Dim NewCP As CameraPosition
NewCP.Initialize(cp.Target.Latitude, cp.Target.Longitude, cp.Zoom + 1)
gmap.AnimateCamera(NewCP)
Else
Log("No permission!")
End If