Dim listPolygone As List
listPolygone.Initialize
Dim latlng As LatLng
latlng.Initialize(LatGrand,LntGrand)
listPolygone.Add(latlng)
latlng.Initialize(LatGrand,LntPetit)
listPolygone.Add(latlng)
latlng.Initialize(LatPetit,LntPetit)
listPolygone.Add(latlng)
latlng.Initialize(LatPetit,LntGrand)
listPolygone.Add(latlng)
Dim GoogleMapsExtras1 As GoogleMapsExtras
Dim polygonoptions1 As PolygonOptions
polygonoptions1.Initialize
polygonoptions1.FillColor=Colors.ARGB(150,255,255,0)
polygonoptions1.AddPoints(listPolygone)
polygonoptions1.StrokeColor=Colors.DarkGray
polygonoptions1.StrokeWidth=3
Dim pg As Polygon = GoogleMapsExtras1.AddPolygon(gmap, polygonoptions1)