Dim nLat, sLat, wLng, eLng As Double
For i=0 To MapMarkers.Size-1
Dim MapMarker As Marker = MapMarkers.GetValueAt(i)
Dim Point As LatLng = MapMarker.Position
If i=0 Then
nLat = Point.Latitude
sLat = Point.Latitude
wLng = Point.Longitude
eLng = Point.Longitude
Else
nLat = Max(nLat, Point.Latitude)
sLat = Min(sLat, Point.Latitude)
eLng = Min(eLng, Point.Longitude)
wLng = Max(wLng, Point.Longitude)
End If
Next
Dim NorthEast As LatLng
NorthEast.Initialize(nLat, eLng)
Dim SouthWest As LatLng
SouthWest.Initialize(sLat, wLng)
Dim MapBounds As JavaObject
MapBounds.InitializeArray("com.lynden.gmapsfx.javascript.object.LatLongBounds", Array(SouthWest, NorthEast))
Dim jMap As JavaObject = gmap
jMap = jMap.GetField("map")
jMap.RunMethod("fitBounds", Array(MapBounds))