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