mymarker=gmap.AddMarker3(location1.Latitude, location1.Longitude, "My Position",ikon)
Dim LL As LatLng
LL.Initialize(location1.Latitude,location1.Longitude)
mymarker.Position = LL
cp.Initialize(location1.Latitude,location1.Longitude,15)
gmap.AnimateCamera(cp)