Private Sub CreateIconFromBitmap(bmp As Bitmap) As Object
If bmp = Null Or bmp.IsInitialized = False Then Return 0
Dim icon As JavaObject
'Return icon.InitializeStatic("android.graphics.drawable.Icon").RunMethod("createWithBitmap", Array(bmp))
Dim xml As XmlLayoutBuilder
Return icon.InitializeStatic("android.graphics.drawable.Icon").RunMethod("createWithResource", Array(ctxt,xml.GetResourceId("drawable","icon")))
End Sub