VB.net Color Aimbot

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

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)
        Dim pointx As Integer = 1
        Dim pointy As Integer = 1
        Dim looking As Boolean = True
        Try
            While looking = True
                Dim atpoint As Color = screenshot.GetPixel(pointx, pointy)
                Dim red As Color = Color.FromArgb(255, 217, 59, 73) 'does not work with crossfire
                If atpoint = red Then
                    Cursor.Position = New Point(pointx, pointy)
                    looking = False
                    pointx = 1
                    pointy = 1
                End If

                pointy = pointy + 1
                If pointy = My.Computer.Screen.Bounds.Height Then
                    pointy = 0
                    pointx = pointx + 1
                End If

            End While
        Catch ex As Exception
        End Try

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)
        Dim pointx As Integer = 1
        Dim pointy As Integer = 1
        Dim looking As Boolean = True
        Try
            While looking = True
                Dim atpoint As Color = screenshot.GetPixel(pointx, pointy)
                Dim red As Color = Color.FromArgb(255, 217, 59, 73) 'does not work with crossfire
                If atpoint = red Then
                    Cursor.Position = New Point(pointx, pointy)
                    looking = False
                    pointx = 1
                    pointy = 1
                End If

                pointy = pointy + 1
                If pointy = My.Computer.Screen.Bounds.Height Then
                    pointy = 0
                    pointx = pointx + 1
                End If

            End While
        Catch ex As Exception
        End Try

 Timer1.Start()
        Timer2.Start()

Timer1.Stop()
        Timer2.Stop()

 Timer1.Interval = 1
        Timer2.Interval = 1
        Timer1.Enabled = False
        Timer2.Enabled = False
        Button1.Text = "on"
        Button2.Text = "off"