Quote:
> Dim hdcScreen As Long
> hdcScreen = GetDC(0)
> color = GetPixel(hdcScreen, x, y)
> Call ReleaseDC(hdcScreen)
GetDC(0) sometimes has problems though. If you get problems try something
like:
Dim DeskWnd As Long
Dim DeskDC As Long
Dim TargCol As Long
DeskWnd = GetDesktopWindow()
DeskDC = GetDC(DeskWnd)
TargCol = GetPixel(DeskDC, X, Y)
ReleaseDC(DeskWnd, DeskDC)
Hope this helps,
Mike
-- EDais --
WWW: Http://Members.xoom.com/EDais/