'Benötigt wird eine Picturebox, 2 Textboxen
Dim i&, j&, Z1&, Z2&
 
Z1 = 0
Z2 = 0
With Picture1
  .ScaleMode = vbPixels
  .AutoSize = True
  .AutoRedraw = True
  Set .Picture = LoadPicture("C:\EinBild.bmp")
  DoEvents
  For i = 0 To .ScaleWidth - 1
    For j = 0 To .ScaleHeight - 1
      Select Case .Point(i, j)
        'Hier die Farbliste eintragen
        Case vbYellow
          Z1 = Z1 + 1
        Case vbRed
          Z2 = Z2 + 1
      End Select
    Next j
  Next i
End With
Text1.Text = Z1
Text2.Text = Z2

Gruss,

Zardoz