scan an app for a pixel of a certain color

could some show an example on how to
scan the pixelarea of a program for a pixel with a certain color?

thanks in advance, help is heavily appreciated!

Code:

---

Private Declare Function GetPixel Lib "gdi32" Alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Private Sub Command1_Click()

    For x = 1 To Width / Screen.TwipsPerPixelX
        For y = 1 To Width / Screen.TwipsPerPixelY
            lColor = GetPixel(Me.hDC, X, Y)
            If lColor = vbBlue Then MsgBox "Blue found"
        Next y
    Next x

End Sub

---

luv yah! :p it w0rx :)
luv yah! :p it w0rx :)
luv yah! :p it w0rx :)
luv yah! :p it w0rx :)
luv yah! :p it w0rx :)

and thanks again ;))))