icn="trafficlight"
Dim AndroidResources1 As AndroidResources
Dim GIcon As Bitmap
Dim object1 As Object
Dim BitmapDrawable1 As BitmapDrawable
object1=AndroidResources1.GetApplicationDrawable(icn)
If object1=Null Then
Log("Drawable NOT FOUND: "&icn)
GIcon=Null
Else
BitmapDrawable1=object1
GIcon=BitmapDrawable1.Bitmap
End If
If Marker1.IsInitialized Then Marker1.Remove
GIcon=CreateScaledBitmap(GIcon,10%x, 10%x)
Dim BitmapDescriptor1 As BitmapDescriptor
Dim BitmapDescriptorFactory1 As BitmapDescriptorFactory
BitmapDescriptor1=BitmapDescriptorFactory1.FromBitmap(GIcon)
MarkerOptions1.Icon(BitmapDescriptor1).Anchor(0.5,0.5)
MarkerOptions1.Position2(geopoint1.Latitude,geopoint1.Longitude).Title(MarkerId).Visible(True)
Marker1=GoogleMapsExtras1.AddMarker(gmap, MarkerOptions1)