Private Type RGB
    red As Byte
    green As Byte
    blue As Byte
End Type
 
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
 
Private Sub Form_Load()
 
ClickAllPixel Picture1, vbRed
 
 
 
End Sub
 
 
Function ClickAllPixel(PictureBox As PictureBox, Pixel)
 
        ATime = timeGetTime
 
        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 PictureBox.PSet (x, y)
 
            Next x
 
 
        Next y
        Btime = timeGetTime
 
        MsgBox Btime - ATime & " Millisekunden"
End Function