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 r As Reflector
Dim b As Bitmap
b = r.RunStaticMethod("android.graphics.Bitmap", "createScaledBitmap", _
Array As Object(Original, Width, Height, Filter), _
Array As String("android.graphics.Bitmap", "java.lang.int", "java.lang.int", "java.lang.boolean"))
Return b
End Sub