VB.net Color Aimbot updated

        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 x As Integer = 1
        Dim y As Integer = 1
        Dim search As Boolean = True
        Try
            While search = True
                Dim atpoint As Color = screenshot.GetPixel(x, y)
                Dim red As Color = Color.FromArgb(192, 157, 130)
                If atpoint = red Then
                    Cursor.Position = New Point(x, y)
                    search = False
                    x = 1
                    y = 1
                End If

                y = y + 1
                If y = My.Computer.Screen.Bounds.Height Then
                    y = 0
                    x = x + 1
                End If

            End While
        Catch ex As Exception
        End Try

Timer1.Start()

Timer1.Stop()

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