Public Sub Command1_Click()
x = 0
y = 0
fertig = 0
scrWidth=Screen.Width/Screen.TwipsPerPixelX
scrHeight=Screen.Height/Screen.TwipsPerPixelY
hDCp = GetDC(GetDesktopWindow)
 
Do Until fertig = 1
 
REM brauchen wir nicht, nur unnötige Zeit verplempert
REM x.Caption = x
REM y.Caption = y
 
If x = scrWidth Then
y = y + 1
x = 0
End If
 
If y = scrHeight And x = scrWidth Then
MsgBox "Bildschirmende erreicht. Pixel nicht gefunden"
fertig = 1
End If
 
Result = GetPixel(hDCp, x, y)
 
x = x + 1
 
If Result = 12912254 Then
fertig = 1
MsgBox "Pixel gefunden!"
End If
 
Loop
 
ReleaseDC GetDesktopWindow, hDCp 'kann auch andersrum sein, musst Du mal die 
' Deklaration nachschauen.
End Sub