Sub Camera_PictureTaken2(Data() As Byte)
Dim bmp As Bitmap
Dim CamData As InputStream
CamData.InitializeFromBytesArray(data, 0, data.Length)
bmp.Initialize2(CamData)
bmp = CreateScaledBitmap(bmp,200,200,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