' create the google map
Dim gm1 As ABMGoogleMap
gm1.Initialize(page, "gm1", -12.043333, -77.028333, 15, 350, ABM.GOOGLEMAPTYPE_ROADMAP,0)
gm1.Draggable = True
gm1.HasMapTypeControl = True
gm1.HasStreetViewControl = True
gm1.HasZoomControl = True
gm1.AddMapType(ABM.GOOGLEMAPTYPE_ROADMAP)
gm1.AddMapType(ABM.GOOGLEMAPTYPE_TERRAIN)
gm1.AddMapType(ABM.GOOGLEMAPTYPE_HYBRID)
gm1.AddMapType(ABM.GOOGLEMAPTYPE_SATELLITE)
page.Cell(2,1).AddComponent(gm1)
...
page.Refresh
page.FinishedLoading
page.RestoreNavigationBarPosition
' create a fence polygon named 'fence"
Dim Markers As List
Markers.Initialize
AddPoint(Markers, -12.040397656836609,-77.03373871559225, "fence")
AddPoint(Markers, -12.040248585302038,-77.03993927003302, "fence")
AddPoint(Markers, -12.050047116528843,-77.02448169303511, "fence")
AddPoint(Markers, -12.044804866577001,-77.02154422636042, "fence")
' add the fence polygon
gm1.AddPolygon("fence", Markers, ABM.COLOR_DEEPPURPLE, ABM.INTENSITY_NORMAL, 0.6, 5, ABM.COLOR_CYAN, ABM.INTENSITY_NORMAL, 0.3)
gm1.refresh ' IMPORTANT
' add a draggable marker in the fence (red one)
gm1.AddMarkerDraggable("mymarker1", -12.043333, -77.028333, ABM.COLOR_RED, "", "", Array("fence"))
gm1.refresh ' IMPORTANT