Dim bytesRead() As Byte = Nothing
                Dim Strm As New System.IO.FileStream("C:\Bild.jpg", _
                  IO.FileMode.Open, IO.FileAccess.Read)
                ReDim bytesRead(Strm.Length - 1)
                Strm.Read(bytesRead, 0, Strm.Length)
                Strm.Close()

                Dim bm As Bitmap
                bm = Image.FromFile(.FileName)
                Dim ms As New IO.MemoryStream
                bm.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
                Dim bytesRead() As Byte = ms.ToArray