B4J Question How to resize a .PNG from a PNG bytearray without writing to disk?

Public Sub ImageToBytes(Image As Bitmap) As Byte()
   Dim out As OutputStream
   out.InitializeToBytesArray(0)
   Image.WriteToStream(out, 100, "JPEG")
   out.Close
   Return out.ToBytesArray
End Sub

Public Sub BytesToImage(bytes() As Byte) As Bitmap
   Dim In As InputStream
   In.InitializeFromBytesArray(bytes, 0, bytes.Length)
   Dim bmp As Bitmap
   bmp.Initialize2(In)
   Return bmp
End Sub

Sub CropImage(originalImage As Image, width As Int, height As Int) As Image
    bc.Initialize(width, height)
    For i = 0 To width - 1
        For j = 0 To height - 1
            Dim color As Int = originalImage.GetPixel(i, j)
            bc.SetColor(i, j, color)
        Next
    Next
    Return bc.Bitmap
End Sub

Dim img() As Byte = awt.ScreenCaptureAsByteArray

Dim ogImage As Image
Dim ips As InputStream
ips.InitializeFromBytesArray(img, 0, img.Length -1)
ogImage.Initialize2(ips)

Dim croppedImg As Image = CropImage(ogImage, 1535, 863)
Dim Out As OutputStream = File.OpenOutput(File.DirApp, "cropped.png", False)
cropperImg.WriteToStream(Out)
Out.Close