Pues una forma bastante decente y rápida puede ser esta:
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Sub Command1_Click()
Dim Ancho As Integer, alto As Integer
Ancho = ScaleX(Picture1.Width, vbTwips, vbPixels)
alto = ScaleY(Picture1.Height, vbTwips, vbPixels)
For X = 1 To Ancho
For Y = 1 To alto
DoEvents
If GetPixel(Picture1.hdc, X, Y) = 4341823 Then Debug.Print X & "," & Y
Next
Next
End Sub
Private Sub Form_Load()
Image1.Picture = LoadPicture(path de la imagen)
Picture1.Width = Image1.Width
Picture1.Height = Image1.Height
End Sub
En el loadpicture introduce el path y el nombre de la imagen. Coloca un picturebox, y dentro de éste un objeto image. También pon un boton. El número 4341823 es un color que utilize yo. Pon tu el color tipo long. Puedes ganar aun más velocidad en contra de no revisar todos los pixeles, utilizando step en los for.
Saludos.
P.D. Se me olvido comentarte que tenías que pegar el objeto image que se encuentra dentro del picture, a la parte superior izquierda, para que quede totalmente acoplado.