Visual Basic

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

Dim bmp As Bitmap = CType(Image.FromFile("c:\bmp.png"), Bitmap)
For x As Integer = 0 To bmp.Width - 1
   For y As Integer = 0 To bmp.Height - 1
      Dim pixelAlpha As Byte = bmp.GetPixel(x, y).A
      Dim pixelRed As Byte = bmp.GetPixel(x, y).R
      Dim pixelGreen As Byte = bmp.GetPixel(x, y).G
      Dim pixelBlue As Byte = bmp.GetPixel(x, y).B
   Next
Next

bmp.SetPixel(x, y, Color.FromArgb(pixelAlpha, pixelRed, pixelGreen, pixelBlue))