Public Function ScalePictureToMemory(ByVal img() As Byte, ByVal ext As String) As Byte()

        ' since it's going into a word doc, make it max resolution of 150 dpi in both directions
        ' and a max width of 7.5 inches and a max height of 10 inches.
        Dim strm As New System.IO.MemoryStream(img)
        Dim bitmap As New Aurigma.GraphicsMill.Bitmap(strm)

        Dim height As Integer = bitmap.Height
        Dim width As Integer = bitmap.Width
        Dim sizeX As Single = (width / bitmap.HorizontalResolution)
        Dim sizeY As Single = (height / bitmap.VerticalResolution)
        Dim maxReduction As Single = 1
        If sizeX > 7.5 Then maxReduction = Math.Min(maxReduction, 7.5 / sizeX)
        If sizeY > 10 Then maxReduction = Math.Min(maxReduction, 10 / sizeY)

        Dim outStrm As New MemoryStream
        Dim results() As Byte
        Try
            Dim maxXResolution = Math.Min(bitmap.HorizontalResolution, 150)
            Dim maxYResolution = Math.Min(bitmap.VerticalResolution, 150)
            If maxReduction < 1 Or bitmap.HorizontalResolution > 150 Or bitmap.VerticalResolution > 150 Then
                ' needs reduction and/or lossy compression
                bitmap.HorizontalResolution = maxXResolution
                bitmap.VerticalResolution = maxYResolution
                bitmap.Transforms.Resize(sizeX * maxReduction * maxXResolution, sizeY * maxReduction * maxYResolution, Aurigma.GraphicsMill.Transforms.ResizeMode.Resize, InterpolationMode.HighQuality)

                bitmap.Save(outStrm, New JpegEncoderOptions)
                Return outStrm.ToArray()
            ElseIf ext.ToLower.EndsWith("jpg") Or ext.ToLower.EndsWith("jpeg") Then
                ' small enough AND jpeg already
                Return img
            Else
                ' small enough, but let's try to make it smaller by making it lossy
                bitmap.Save(outStrm, New JpegEncoderOptions)
                Return outStrm.ToArray()
            End If
        Finally
            'bitmap.Dispose()
            strm.Close()
            outStrm.Close()
            bitmap.Dispose()
        End Try
    End Function

        Dim imageData() As Byte = <the contents from a jpg file>
        For i As Integer = 0 To 200000
            If i Mod 100 = 0 Then
                Console.WriteLine(i)
            End If
            Dim newImage(imageData.Length - 1) As Byte
            imageData.CopyTo(newImage, 0)
            Dim img() As Byte = ScalePictureToMemory(newImage, ".jpg")
        Next

_pdfWriter = new PdfWriter(page.FileName);
PdfFrame pdfFrame = new PdfFrame(pageBitmap, p.Quality);
_pdfWriter.AddFrame(pdfFrame);
pdfFrame.Dispose();

if (pageBitmap != null)
         pageBitmap.Dispose();
         pageBitmap = null;
}

if (_pdfWriter != null)
            {
                _pdfWriter.Close();
                _pdfWriter.Dispose();
                _pdfWriter = null;
            }