Option Explicit

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal Y As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) As Long
Const HWND_DESKTOP = 0

Private Sub Command1_Click()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer2.Interval = 300
Timer2.Enabled = True
End Sub

Private Sub Timer1_timer()
'Timer1.Enabled = False
    Dim hdcA As Long
    Dim hWndA As Long
    hWndA = GetForegroundWindow()
    hdcA = (GetWindowDC(hWndA))
'hdcA = (GetWindowDC(HWND_DESKTOP))
    Dim Pcolor
    Pcolor = GetPixel(hdcA, 400, 400)
    Dim KRA
    Dim SIN
    Dim ZEL
    KRA = (Pcolor Mod 256)
    SIN = (Int(Pcolor / 65536))
    ZEL = ((Pcolor - (SIN * 65536) - KRA) / 256)
    Text1.Text = "Red=" & KRA & " Green=" & ZEL & " Blue=" & SIN
    ReleaseDC hWndA, hdcA
End Sub

Private Sub Timer2_Timer()
Timer2.Enabled = False
Dim lngX As Long
Dim lngY As Long
lngX = 400
lngY = 400
SetCursorPos lngX, lngY
End Sub