Visual Basic

'Define a memory stream
Dim ms As MemoryStream = New MemoryStream()

'Get the image into ms from picture box
pic.Image.Save(ms, pic.Image.RawFormat.Gif)

'Define a byte stream of length of memory stream and transfer the ms to it
Dim bytesA(CInt(ms.Length - 1)) As Byte

ms.Seek(0, SeekOrigin.Begin)
ms.Read(bytesA, 0, CInt(ms.Length))

ms.Dispose()

Imports System
Imports System.IO
Imports System.Text

'Declare a memory stream
Dim ms As MemoryStream = New MemoryStream()

'Get the image into ms from picture box (Treating it as a gif, you can chuse ur format)
picBox.Image.Save(ms, picBox.Image.RawFormat.Gif)

'Define a byte stream of length of memory stream and tranfer the ms to it
Dim bytes(CInt(ms.Length - 1)) As Byte

ms.Seek(0, SeekOrigin.Begin)
ms.Read(bytes, 0, CInt(ms.Length))

ms.Dispose()

Dim ar(dataLength) As Byte

myReader.GetBytes(0, 0, ar, 0, dataLength)
myReader.Close()

'Define a memory stream
Dim b As New MemoryStream(ar)

picBOx.Image = Image.FromStream(b)

b.Close()

Start()
Work()
End()

Set Graduate = FAIL