Private Type RGB
    red As Byte
    green As Byte
    blue As Byte
End Type
 
 
Private Sub Form_Load()
 
FullRedPixelList = GetAllPixel(Picture1, vbRed)
 
For Each RedPixel In FullRedPixelList
    pos = Split(RedPixel, ",")
    Picture1.PSet (pos(0), pos(1))
Next
 
End Sub
 
 
Function GetAllPixel(PictureBox As PictureBox, Pixel)
 
 
        Dim PicByte() As Byte
        Dim Pixelcolor() As RGB
        Dim PixelList As String
        Dim PicWidth As Long
        Dim PicHeight As Long
        Dim BytePos As Long
 
        Picture1.ScaleMode = vbPixel
 
        With New PropertyBag
            .WriteProperty "Picture", Picture1.Image
            PicByte = .Contents
        End With
 
        PicWidth = Picture1.ScaleWidth
        PicHeight = Picture1.ScaleHeight
 
        BytePos = UBound(PicByte) - 0 ' - 3
 
        ReDim Pixelcolor(1 To PicWidth, 1 To PicHeight)
 
 
        For y = 1 To PicHeight
            For x = PicWidth To 1 Step -1
 
                BytePos = BytePos - 3
 
                If Pixel = RGB(PicByte(BytePos), PicByte(BytePos - 1), PicByte( _
                  BytePos - 2)) Then PixelList = PixelList & x & "," & y & ";"
                DoEvents
            Next x
 
 
        Next y
 
        GetAllPixel = Split(Left(PixelList, Len(PixelList) - 1), ";")
 
End Function