Option Explicit
 
Private Declare Function FindWindow Lib "user32" Alias _
        "FindWindowA" (ByVal lpClassName As String, ByVal _
        lpWindowName As String) 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 GetDC Lib "user32" (ByVal _
        hWnd As Long) As Long
 
 
        Private Declare Function WindowFromPoint Lib "user32" ( _
        ByVal xPoint As Long, ByVal yPoint As Long) _
        As Long
 
 
 
 
 
Private Sub Command1_Click()
  Dim hWndp As Long
  Dim hDCp As Long
  Dim Pixelfarbe As Long
 
 
       hWndp = WindowFromPoint(650, 500)
 
  hDCp = GetDC(hWndp)
 
 
 
 
     Pixelfarbe = GetPixel(hDCp, 5, 503)
     MsgBox Pixelfarbe
 
 
 
 
 
      End Sub