Sub MarkerSetIcon(marker As Marker, bmp As Bitmap)
Dim jo As JavaObject = marker
Dim bitmapdescriptor As JavaObject
bitmapdescriptor.InitializeStatic("com.google.android.gms.maps.model.BitmapDescriptorFactory")
jo.RunMethod("setIcon", Array(bitmapdescriptor.RunMethod("fromBitmap", Array(bmp))))
End Sub