Dim ms_pic As New IO.MemoryStream
Dim bmp_jpg As New Bitmap(<Bilddatei>)
bmp_jpg.Save(ms_pic, Drawing.Imaging.ImageFormat.Jpeg)
Dim bytes_pic As Byte() = ms_pic.ToArray()
'Element erstellen
Dim el As New iTextSharp.text.Jpeg(bytes_pic)