Public Sub LocationChanged(Location1 AsLocation)Dim cp AsCameraPosition
cp.Initialize(Location1.Latitude, Location1.Longitude,14)
gmap.AnimateCamera(cp)
gmap.MyLocationEnabled=True
if gmap.CameraPosition.Zoom=14 then
Dim cp1 As CameraPosition
cp1.Initialize(Location1.Latitude, Location1.Longitude,gmap.CameraPosition.Zoom)
gmap.AnimateCamera(cp1)
End Sub