If GL_m_lati=0 Or GL_m_longi=0 Or GL_my_lat=0 Or GL_my_longi=0 Then Return
Dim CameraUpdateFactory1 As CameraUpdateFactory
Dim CameraUpdate1 As CameraUpdate
Dim llbounds As LatLngBounds
Dim sw, ne As LatLng
ne.Initialize(GL_m_lati,GL_m_longi)
sw.Initialize(GL_my_lat,GL_my_longi)
If GL_my_lat>GL_m_lati Then
llbounds.Initialize(ne, sw)
Else
llbounds.Initialize(sw, ne)
End If
CameraUpdate1=CameraUpdateFactory1.NewLatLngBounds(llbounds,300)
If CameraUpdate1.IsInitialized=True And gmap.IsInitialized=True Then
GoogleMapsExtras1.MoveCamera(gmap, CameraUpdate1)
End If