Public Function GetCountColor(ByVal img As Image) As ColorInfo
        Dim f As New ColorInfo
        Dim bmp As Bitmap
        bmp = New Bitmap(img)
        Dim red, green, blue As Long
        With bmp
            For y As Integer = 0 To .Height - 1
                For x As Integer = 0 To .Width - 1
                    Dim pixel As System.Drawing.Color
                    pixel = .GetPixel(x, y)
                    red += pixel.R
                    green += pixel.G
                    blue += pixel.B
                Next
            Next
        End With
        Dim temp As Integer = bmp.Height * bmp.Width
        f.r = red / temp
        f.g = green / temp
        f.b = blue / temp
        f.count = (red + green + blue) / 3
        If Math.Abs(red - green) < 6 And Math.Abs(red - blue) < 6 Then
            f.color = "Black"
            Return f
        ElseIf (red > green) And (red > blue) Then
            f.color = "Red"
            Return f
        ElseIf green > red And green > blue Then
            f.color = "Green"
            Return f
        ElseIf blue > red And blue > green Then
            f.color = "Blue"
            Return f
        Else
            f.color = "Black"
            Return f
        End If
    End Function