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 GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Dim window As Long
Dim dc As Long
Dim color As Long
 
Private Sub Form_Load()
    window = FindWindow("ThunderRT6FormDC", vbNullString)
    MsgBox window
    dc = GetWindowDC(window)
    MsgBox dc
    color = GetPixel(dc, 600, 500)
    MsgBox color
End Sub