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 Sub Form_Load()
  Dim xhWnd As Long
  Dim Pixelfarbe As Long
 
 
 
 
      xhWnd = FindWindow(vbNullString, "Name des Fensters")
 
 
     Pixelfarbe = GetPixel(xhWnd, 100, 100)
     MsgBox Pixelfarbe
 
 
 
     End Sub