Dim bmd =BitmapDescriptorFactory1.FromBitmap(LoadBitmap(File.DirAssets, "modissat_ch.png")) As BitmapDescriptor
Dim mo As MarkerOptions
mo.Initialize
'--------------------------------------------------
mo.Position2(0,0) ' same as circle
'--------------------------------------------------
mo.Icon(bmd)
mo.Visible(True)
gmape.AddMarker(gmap, mo)
Dim cop As CircleOptions
cop.Initialize
'--------------------------------------------------
cop.Center2(0,0) ' same as bitmap
'--------------------------------------------------
cop.Visible(True)
cop.StrokeWidth(4)
cop.StrokeColor(Colors.Red)
cop.Radius(10000) 'if static grow or not like zoom terrain ,the marker not.
gmape.AddCircle (gmap, cop)