Sub DrawPolygon (PointList As List)
Dim GoogleMapsExtras1 As GoogleMapsExtras
Dim polygonoptions1 As PolygonOptions
polygonoptions1.Initialize
polygonoptions1.FillColor=Colors.ARGB(150,255,255,0)
polygonoptions1.AddPoints(PointList)
polygonoptions1.StrokeColor=Colors.DarkGray
polygonoptions1.StrokeWidth=3
Dim pg As Polygon = GoogleMapsExtras1.AddPolygon(gmap, polygonoptions1)
End Sub