Dim ms As New IO.MemoryStream
        PictureBox1.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
        Dim bytes() As Byte = ms.ToArray()

        ms = New MemoryStream(bytes)
        PictureBox1.Image = Image.FromStream(ms)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist