Dim CameraUpdateFactory1 As CameraUpdateFactory
Dim CameraUpdate1 As CameraUpdate
Dim llbounds As LatLngBounds
Dim sw, ne As LatLng 'your southwest and northeast corners
llbounds.Initialize(sw, ne)
CameraUpdate1=CameraUpdateFactory1.NewLatLngBounds(llbounds,10)
GoogleMapsExtras1.MoveCamera(gmap, CameraUpdate1)