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