Мониторинг определенного пиксела экрана

GetPixel

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If ScreenshotForm().GetPixel(1386, 465) = Color.FromArgb(219, 214, 211) Then MsgBox("D")
    End Sub
 
 
 
    Function ScreenshotForm() As Bitmap
        Dim screensize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim screenshot As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenshot)
        g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screensize)
        Return screenshot
    End Function

    Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer) As Integer
    Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Integer
    Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Integer) As Integer
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer)
    Private Structure POINTAPI
        Dim x As Integer
        Dim y As Integer
    End Structure
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim tPOS As POINTAPI
        Dim lColor As Integer
        Dim lDC As Integer
        lDC = GetWindowDC(0)
        Call GetCursorPos(tPOS)
        lColor = GetPixel(lDC, tPOS.x, tPOS.y)
        Dim r As Integer = lColor Mod 256
        Dim g As Integer = (lColor \ 256) Mod 256
        Dim b As Integer = lColor \ 256 \ 256
        TextBox1.Text = r & "," & g & "," & b
        TextBox2.Text = Cursor.Position.X & ", " & Cursor.Position.Y
        TextBox3.Text = lColor
    End Sub