Sub Activity_Create(FirstTime As Boolean)
Dim b As Bitmap
b = LoadBitmap(File.DirAssets, "small_logo.png")
b = CreateScaledBitmap(b, 16, 16, True)
End Sub
Sub CreateScaledBitmap(Original As Bitmap, Width As Int, Height As Int, Filter As Boolean) As Bitmap
Dim jo As JavaObject
jo.InitializeStatic("android.graphics.Bitmap")
Return jo.RunMethod("createScaledBitmap", Array (Original, Width, Height, Filter))
End Sub