Sub Process_Globals
Private MapZoom As Float
End Sub
Sub RefreshScreen
MapZoom = gmap.CameraPosition.Zoom
MapCenter = gmap.CameraPosition.Target
cp.Initialize(MapLat, MapLng, (MapZoom/2) )
gmap.MoveCamera(cp)
cp.Initialize(MapLat, MapLng, MapZoom )
gmap.MoveCamera(cp)
End Sub