Obtener color de pixel de la pantalla de windows???

[seba123neo]

Hola, proba esto:

Código vb:

Option Explicit
 
Private Type POINTAPI
    x As Long
    y As Long
End Type
 
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
 
Private Sub Form_Load()
    Timer1.Interval = 100
End Sub
 
Private Sub Timer1_Timer()
    Dim tPOS As POINTAPI
    Dim sTmp As String
    Dim lColor As Long
    Dim lDC As Long
    lDC = GetWindowDC(0)
    Call GetCursorPos(tPOS)
    lColor = GetPixel(lDC, tPOS.x, tPOS.y)
    Me.BackColor = lColor
    sTmp = Right$("000000" & Hex(lColor), 6)
    Me.Caption = "R:" & Right$(sTmp, 2) & " G:" & Mid$(sTmp, 3, 2) & " B:" & Left$(sTmp, 2)
End Sub
 

saludos.