Questo codice scorre tutti i pixel di un' immagine.
Volta per volta il pixel viene acquisito nella variabile clr1.
Ogni volta che valorizzi clr1 puoi fare un Select Case, ad esempio,
e capire di che colore è il pixel.
Dim clr1 as Color
Dim BMP1 as Bitmap=New Bitmap(Tua immagine)
For py As Integer = 0 To BMP1.Height - 1
For px As Integer = 0 To BMP1.Width - 1
clr1 = BMP1.GetPixel(px, py)
Next px
Next py