Do While (MinX < LeftMin OR MinY < TopMin) AND MapZoom > 0
MapZoom = MapZoom - 1
cp.Initialize2(MapLat, MapLng, MapZoom, 0, 0 )
gmap.MoveCamera(cp)
Projection1=GoogleMapsExtras1.GetProjection(gmap)
MarkerLocation = BTSMarker.Position
ScreenPosition = Projection1.toScreenLocation(MarkerLocation)
BTSX = ScreenPosition.X
BTSY = ScreenPosition.Y
MinX = Min(BTSX,LMX)
MinY = Min(BTSY,LMY)
LeftMin = BTSIV.Width
TopMin = pnlDispLatLng.Height + LMIV.Height
Msgbox("Hello", "BTSX")
'Msgbox(LMX,"LMX")
Loop