Imports System.Drawing
 
Public Class Form1
  Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  PictureBox1.Image = Image.FromFile("c:\Image\Toto.jpg" )
 
  Dim bmp As New Drawing.Bitmap(PictureBox1.Image)
  Dim x As Integer
  Dim y As Integer
  Dim clr As Integer
  For y = 0 To bmp.Height
     For x = 0 To bmp.Width
        With bmp.GetPixel(x, y)
          clr = .R & .G & .B
          MessageBox.show(.R)
          MessageBox.show(.G)
          MessageBox.show(.B)
          MessageBox.Show(clr)
        End With
     Next x
  Next y
 
End Sub
End Class