Dim LLboundsBuilder1 As LatLngBoundsBuilder
LLboundsBuilder1.Initialize
Dim ThisLL As LatLng
Do While Locations.NextRow
ThisLL.Initialize(Locations.GetDouble("Lat"),Locations.GetDouble("Long"))
gMap.AddMarker3(ThisLL.Latitude,ThisLL.Longitude,Locations.GetString("Name"),bmpMyMarker)
LLboundsBuilder1.Include(ThisLL)
Loop
Dim Bounds As LatLngBounds = LLboundsBuilder1.Build
gmx.AnimateToBounds(gMap,Bounds,5) '<<< Error here
Dim CameraUpdateFactory1 As CameraUpdateFactory
Dim CamUpdate As CameraUpdate
CamUpdate = CameraUpdateFactory1.NewLatLngBounds(Bounds,10 )
gmx.AnimateCamera(gMap,CamUpdate)