Sub CreateScaledBitmap(Original As Bitmap, Width As Int, Height As Int) As Bitmap
Dim bo As JavaObject
bo.InitializeStatic("android.graphics.Bitmap")
Dim bmp As Bitmap = bo.RunMethod("createScaledBitmap", Array As Object(Original, Width, Height, False))
Return bmp
End Sub
Sub SetBitmapDensity(b As Bitmap) As Bitmap
b = CreateScaledBitmap(b, 32dip, 32dip)
Dim jo As JavaObject = b
Dim den As Int = Density * 160
jo.RunMethod("setDensity", Array(den))
Return b
End Sub