Редактирование pdf

_xObject = New clsPdfXObject
        CreateImage(OutputText, iWidth, iHeight)
 
Private Sub CreateImage(ByVal OutputText As String, ByVal iWidth As Integer, ByVal iHeight As Integer) 
        Dim mm As New MemoryStream
        Dim BitText As New Bitmap(iWidth, iHeight)
        Dim flagGraphics As Graphics = Graphics.FromImage(BitText)
        flagGraphics.Clear(Color.White)
 
        flagGraphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        flagGraphics.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
        flagGraphics.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
        'flagGraphics.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAlias
 
        Dim font As New System.Drawing.Font("Arial", 8, System.Drawing.FontStyle.Regular)
        Dim text As New System.Drawing.SolidBrush(System.Drawing.Color.Black)
        Dim pointHead As New System.Drawing.PointF(1.0F, 2.0F)
 
        flagGraphics.DrawString(OutputText, font, text, pointHead)
 
        BitText.Save(mm, System.Drawing.Imaging.ImageFormat.Jpeg)
        ' сбрасываю на диск. временная строчка
        BitText.Save("c:\temp.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        flagGraphics.Dispose()
 
        _xObject.Width = iWidth
        _xObject.Height = iHeight
        _xObject.StreamObject.Filter = PdfFilters.DCTDecode
 
        Dim i As Integer
        i = 0
        mm.Seek(0, SeekOrigin.Begin)
        While (i < mm.Length)
            _xObject.AddValue(Convert.ToByte(mm.ReadByte()))
            i += 1
        End While
        mm.Close()
        _xObject.StreamObject.SetStreamLength()