Нахождение самых встречающихся 5 цветов на изображении - Visual Basic .NET

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Try
            image1 = New Bitmap("C:\Users\Администратор\Desktop\МАХ\мой робот\1.jpg", True)
            Dim xi, yi, xii, yii, b, k As Integer
            Dim ee, eee As Integer
            Dim osnova As Color
            k = 0
            b = 0
            For xi = 0 To image1.Width - 1
                For yi = 0 To image1.Height - 1
                    Dim pixelColor As Color = image1.GetPixel(xi, yi)
 
                    For xii = 0 To image1.Width - 1
                        For yii = 0 To image1.Height - 1
                            If Color.op_Equality(pixelColor, image1.GetPixel(xii, yii)) Then
                                k = k + 1
                                If k >= b Then osnova = pixelColor

                                image1.SetPixel(xi, yi, osnova)
                            End If
                        Next
                    Next
                Next
            Next
            For ee = 1 To 20
                For eee = 1 To 20
                    image1.SetPixel(ee, eee, osnova)
                Next
            Next
 
            PictureBox1.Image = image1
 
        Catch ex As ArgumentException
            MessageBox.Show("Чет не так")
        End Try
    End Sub