Dim LatLngBoundsBuilder1 As LatLngBoundsBuilder
LatLngBoundsBuilder1.Initialize
'here you include all your postition information to this object:
'here a loop for all of your points
dim Dim Point As LatLng
Point.Initialize(37.772323, -122.214897)
LatLngBoundsBuilder1.Include(Point)
'end loop
Dim llBounds As LatLngBounds
llBounds = LatLngBoundsBuilder1.Build
GoogleMapsExtras1.AnimateToBounds2(GoogleMap1,llBounds,1920,1000,190)