i tried using most of your code but couldnt get it working... can you see something i dont? thanks
Sub CreateScaledBitmap(bmp As Bitmap, NewWidth As Int, NewHeight As Int) As Bitmap
Dim r As Reflector
Dim b As Bitmap
b = r.RunStaticMethod("android.graphics.Bitmap", "createScaledBitmap", _
Array As Object(bmp, NewWidth, NewHeight, True), _
Array As String("android.graphics.Bitmap", "java.lang.int", "java.lang.int", "java.lang.boolean"))
Return b
End Sub
Sub SaveBitmap (bmp As Bitmap, dir As String, filename As String)
Dim out As OutputStream
out=File.OpenOutput(File.DirRootExternal, "reduced/" & "-Lower2.jpeg", False)
bmp.WriteToStream(out,5,"JPEG")
out.close
End Sub
Sub buttongo_click
Dim dir As String
Dim filename As String
Dim original As Bitmap
Dim bmp As Bitmap
bmp.Initialize(File.DirRootExternal, "reduced/" & "-Lower.jpeg")
CreateScaledBitmap(bmp,300,400)
SaveBitmap(bmp,File.DirRootExternal, "reduced/" & "-Lower.jpeg")
End Sub