Option Explicit
 
Private Sub Form_Load()
  Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, &H2 Or &H1)
  AutoRedraw = True
  FontBold = True
  BackColor = &HAA431B
  ForeColor = vbWhite
  StartHook
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  StopHook
End Sub
 
 

 
Option Explicit
 
Private Declare Function SetWindowsHookEx Lib "user32.dll" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32.dll" (ByVal hHook As Long) As Long
Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function ReleaseDC Lib "user32.dll" (ByVal hwnd As Long, ByVal hdc As Long) As Long
 
Private Const WH_MOUSE_LL As Long = 14
 
Private Type POINTAPI: x As Long: y As Long: End Type
 
Dim hHook As Long
Dim lDC As Long
 
Public Sub StartHook()
    hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MouseProc, App.hInstance, &H0&)
    lDC = GetWindowDC(&H0&)
End Sub
 
 
Public Sub StopHook()
    Call UnhookWindowsHookEx(hHook)
    hHook = &H0&
    Call ReleaseDC(&H0&, lDC)
End Sub
 
 
Private Function MouseProc(ByVal ncode As Long, ByVal wParam As Long, lParam As POINTAPI) As Long
 
    Dim lColor As Long
    lColor = GetPixel(lDC, lParam.x, lParam.y)
 
    'If Not lColor < 0 Then
      'Form1.Cls
      'Form1.Print Hex(lColor)
      If lColor = &HAA431B Then
        Form1.Caption = "SI"
      Else
        Form1.Caption = "NO"
      End If
    'End If
 
  MouseProc = CallNextHookEx(hHook, ncode, wParam, lParam)
 
End Function