Быстрый поиск цвета пикселя на экране монитора

Public Class Form1
    Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer) As Integer
    Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Integer) As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Y = 0 To 1079
            For X = 0 To 1919
                If SerchPosi(X, Y) = "255,255,255" Then
                    MsgBox(X & " " & Y)
                End If
 
                X = X + 1
            Next
            Y = Y + 1
        Next
    End Sub
 
    Private Function SerchPosi(ByRef X As Integer, ByRef Y As Integer) As String
        Dim ret As String
        Dim lColor As Integer
        Dim lDC As Integer
        lDC = GetWindowDC(0)
 
        lColor = GetPixel(lDC, X, Y)
        Dim r As Integer = lColor Mod 256
        Dim g As Integer = (lColor \ 256) Mod 256
        Dim b As Integer = lColor \ 256 \ 256
        ret = r & "," & g & "," & b
        Return ret
    End Function
End Class

Imports System
Imports System.Drawing
 
Module Pixel
  Sub Main()
    Dim szScreen As New Size( _
        My.Computer.Screen.Bounds.Width, _
        My.Computer.Screen.Bounds.Height _
    )
    Dim imgScreen As New Bitmap( _
        My.Computer.Screen.Bounds.Width, _
        My.Computer.Screen.Bounds.Height _
    )
    
    Using g As Graphics = Graphics.FromImage(imgScreen)
      g.CopyFromScreen(New Point(0, 0), New Point(0, 0), szScreen)
    End Using
    
    Dim pixel = imgScreen.GetPixel(23, 100) ' какой-нибудь пиксель
    Console.WriteLine(pixel)
  End Sub
End Module

Private Shared Function FindAllPixelLocations(img As Bitmap, color As Color) As List(Of point)
    Dim points As New List(Of point)()
    Dim c As Integer = color.ToArgb()
    Dim x As Integer = 0
    While x < img.Width
        Dim y As Integer = 0
        While y < img.Height
            If c.Equals(img.GetPixel(x, y).ToArgb()) Then
                points.Add(New Point(x, y))
            End If
            System.Math.Max(System.Threading.Interlocked.Increment(y),y - 1)
        End While
        System.Math.Max(System.Threading.Interlocked.Increment(x),x - 1)
    End While
    Return points
End Function

Public Function fastFindPxLocation(ByVal bmp00 As Bitmap, ByVal cc As Color) As List(Of Point)
    Try
        Dim w As Integer = bmp00.Width, h As Integer = bmp00.Height
        Dim r1 As Byte = cc.R, g1 As Byte = cc.G, b1 As Byte = cc.B
        Dim lst As New List(Of Point)
        Dim bmp As New Bitmap(w, h, PixelFormat.Format24bppRgb)
        bmp = bmp00.Clone()
        Dim bmpData As BitmapData = bmp.LockBits(New Rectangle(0, 0, w, h), System.Drawing.Imaging.ImageLockMode.ReadWrite, bmp.PixelFormat)
        Dim ptr As IntPtr = bmpData.Scan0
        Dim ww As Integer = bmpData.Stride
        Dim nn As Integer = ww * h, x, y As Integer
        Dim bt(nn - 1) As Byte
        System.Runtime.InteropServices.Marshal.Copy(ptr, bt, 0, nn)
        For i As Integer = 0 To bt.Length - 1 Step 3
            If bt(i) = b1 AndAlso bt(i + 1) = g1 AndAlso bt(i + 2) = r1 Then
                y = (i / 3) \ w
                x = (i / 3) - y * w
                lst.Add(New Point(x, y))
            End If
        Next
        System.Runtime.InteropServices.Marshal.Copy(bt, 0, ptr, nn)
        bmp.UnlockBits(bmpData)
        Return lst
    Catch ex As Exception
        MsgBox(ex.ToString)
        Return Nothing
    End Try
End Function