Enum Pix
   Width = 0
   Height = 1
End Enum
 
Private Sub Form_Load()
Me.Show
 
AllRedPixels = GetAllPixels(Picture1, vbRed)
 
For Each Pixel In AllRedPixels
 
        'Show In Picturebox
        Pos = Split(Pixel, ",")
        Picture1.PSet (Pos(Pix.Width), Pos(Pix.Height))
 
Next
 
End Sub
 
Function GetAllPixels(PictureBox As PictureBox, PixelColor As String)
 
Dim PixelList, PixelCount
 
For x = 0 To PictureBox.Width
For y = 0 To PictureBox.Height
 
    If PictureBox.Point(x, y) = PixelColor Then
        PixelList = PixelList & x & "," & y & vbCrLf
    End If
    DoEvents
Next
Next
 
If Len(PixelList) > 0 Then PixelList = Split(Left(PixelList, Len(PixelList) _
  - 1), vbCrLf) Else PixelList = 0
 
GetAllPixels = PixelList
 
End Function