Wait For gmap_Ready
GoogleMap1 = Mapfragment1.GetMap
If GoogleMap1.IsInitialized Then
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
GoogleMap1.MyLocationEnabled = True
GoogleMap1.GetUiSettings.MyLocationButtonEnabled = True
Dim OnMyLocationChangeListener1 As OnMyLocationChangeListener
OnMyLocationChangeListener1.Initialize("OnMyLocationChangeListener1")
GoogleMapsExtras1.SetOnMyLocationChangeListener(GoogleMap1, OnMyLocationChangeListener1)
Wait For OnMyLocationChangeListener1_MyLocationChange(Location1 As Location)
LastLocation = Location1
Dim CameraPosition1 As CameraPosition = GoogleMap1.CameraPosition
Dim NewCameraPosition As CameraPosition
NewCameraPosition.Initialize2(LastLocation.Latitude, LastLocation.Longitude, 15, CameraPosition1.Bearing, CameraPosition1.Tilt)
GoogleMap1.AnimateCamera(NewCameraPosition)
End If
Return GoogleMap1.IsInitialized
End If