scan an app for a pixel of a certain color

[cd2oo1]

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!

[Megatron]

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

[cd2oo1]

luv yah! it w0rx
luv yah! it w0rx
luv yah! it w0rx
luv yah! it w0rx
luv yah! it w0rx

and thanks again )))