I want to reduce the time it takes to get RGB color for pixels (pixels) at a specified location.

Public Class Form 1

    ' ■ API function declaration
    Declare Sub Sleep Lib "kernel32" (ByValdwMillisconds As Integer)

    'Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Long

    Declare Function GetTickCount Lib "kernel32" ( ) As Long

    Declare Function GetPixel Lib "gdi32" Alias "GetPixel"_
        (ByVal hdc As IntPtr, ByVal x As Integer, ByVal y As Integer) As UInt32

    Declare Function GetDC Lib "user32.dll" (ByVal hWnd As Integer) As Integer

    Declare Function ReleaseDC Lib "user32" (ByVal hwnd As_)
        IntPtr, ByVal hdc As IntPtr) As UInt32

    Declare Function GetDesktopWindow Lib "user32"() As Long

    ' ■ declaration of variable
    Private i As Long
    Private j As Long
    Private As Long
    Private tick As Long
    Private window As Long
    Private hdc As Long
    Private Pixel Color As Color
    Private Speed Update Time As Long
    Private pointer position X As Long
    Private pointer position YAs Long

    Private Output Color As Color

    US>'What to do when the form is loaded?
    Private SubForm1_Load (sender As Object, eAs EventArgs) Handles MyBase.Load

        'Get the Desktop Window Handle
        window=GetDesktopWindow

        'Get DC handle
        hdc = GetDC (window)


        tick = 0
        Speed Update Time = GetTickCount

    End Sub

    Private Sub Timer 1_Tick (sender As Object, eAs EventArgs) Handles Timer 1.Tick

        ' ■ Count the tick count
        tick=tick+1

        ' ■ Display update speed
        If tick Mod 10 = 0 Then
            If GetTickCount - Speed Update Time > 0 Then
                koushinsokudo.Text=Int(1/(GetTickCount - Speed Update Time)/10/1000))
            End If
            Speed Update Time = GetTickCount
        End If

        ' ■ Get pointer position
        Pointer Location X = System.Windows.Forms.Cursor.Position.X
        Pointer Location Y=System.Windows.Forms.Cursor.Position.Y

        'View
        pX.Text = pointer position X
        pY.Text = pointer position Y

        ' ■ Get pointer position color
        Forn=1 To 6
            Get Call pixel color (pointer position X, pointer position Y)
        Next
        'RGB value converted to Color type
        Output Color = Pixel Color

        'Output
        shutsuryoku.BackColor= Output Color

        US>'View RGB values
        ontei.Text=pixel color.R
        onlyyou.Text=pixel color.G
        joutai.Text = Pixel color.B

        US>' Displayed in Progress Bar
        US>'To disable the display of animation in which the bar gradually grows when the value increases
        'Reduce from a larger value
        onteibar.Maximum=256
        onteibar.Value=256
        onteibar.Value=pixel color.R
        onteibar.Maximum=255

        onryoubar.Maximum=256
        onryoubar.Value=256
        onryoubar.Value=pixel color .G
        onlyoubar.Maximum=255

        joutaibar.Maximum=256
        joutaibar.Value = 256
        joutaibar.Value = Pixel color .B
        joutaibar.Maximum=255

    End Sub
    Obtain subpixel color (ByVal x As Long, ByValy As Long)

        Dim Color As Long


        'Get Pixel Colors
        Color=GetPixel(hdc,x,y)



        US>'Convert Long to Color
        Pixel Color = ColorTranslator.FromOle (Color)

    End Sub

    When the Find Location button is pressed,
    Private Sub Button 1_Click (sender As Object, eAs EventArgs) Handles Button 1.Click



    End Sub

    US>'When closing the form
    Private SubForm1_FormClosing(ByVal sender As Object,
        ByVale As System.Windows.Forms.FormClosingEventArgs)Handles Me.FormClosing

        US>'Release
        ReleaseDC (window, hdc)

    End Sub
End Class

Forn=1 To 6
    Get Call pixel color (pointer position X, pointer position Y)
Next