Sub SetBearing(bearing As Double)
Dim currentCamera As CameraPosition = B4XPages.MainPage.P_Map.gmap.CameraPosition
Dim newCamera As CameraPosition
newCamera.Initialize2(currentCamera.Target.Latitude, currentCamera.Target.Longitude, currentCamera.Zoom, bearing, currentCamera.Tilt)
B4XPages.MainPage.P_Map.gmap.AnimateCamera(newCamera)
End Sub