Imports System.Threading
Imports System.Windows.Forms

Public Class Sample01
    Sub PixelColorRead()
        Dim objBitmap As Bitmap
        Dim objColor As Color
        Dim strInput As String
        Dim strPrompt As String
        Dim strDelimiter As String
        Dim intX As Integer
        Dim intY As Integer


        MsgBox("Start")
        Thread.Sleep(5 * 1000)
        objBitmap = Clipboard.GetImage()
        If Not objBitmap Is Nothing Then
            strPrompt = "X Y"
            strDelimiter = " "
            strInput = InputBox(strPrompt)
            If Len(strInput) > 0 Then
                intX = Integer.Parse(strInput.Split(strDelimiter.ToCharArray())(0))
                intY = Integer.Parse(strInput.Split(strDelimiter.ToCharArray())(1))
                objColor = objBitmap.GetPixel(intX, intY)
                MsgBox(objColor.ToString())
            End If
        Else
            MsgBox("Thers is no image in clipboard")
        End If
    End Sub
End Class

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 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