gmap = mFragment.GetMap
If gmap.IsInitialized = False Then
ToastMessageShow("Error initializing map.", True)
Else
gmap.MapType = gmap.MAP_TYPE_HYBRID
Dim GoogleMapsExtras1 As GoogleMapsExtras
Dim PolygonOptions1 As PolygonOptions
Dim CircleOptions1 As CircleOptions
CircleOptions1.Initialize
PolygonOptions1.Initialize
PolygonOptions1.FillColor=Colors.ARGB(50, 47, 222, 249)
PolygonOptions1.AddPoints(Points)
PolygonOptions1.StrokeColor=Colors.Black
PolygonOptions1.StrokeWidth=1
Polygon1=GoogleMapsExtras1.AddPolygon(gmap, PolygonOptions1)
Dim cp As CameraPosition
cp.Initialize(-37.9658, 176.989, 8)
gmap.AnimateCamera(cp)
mFragment.GetMap.MyLocationEnabled = True
Dim OnMyLocationChangeListener1 As OnMyLocationChangeListener
OnMyLocationChangeListener1.Initialize("OnMyLocationChangeListener1")
GoogleMapsExtras1.SetOnMyLocationChangeListener(gmap, OnMyLocationChangeListener1)
End If