การหาค่าซ้ำกันมากที่สุดครับ เช่น array (1,2,2,3,4,2)

    Public Shared Function GetMax(Of T)(ByVal list As IList(Of T)) As IEnumerable(Of IEnumerable(Of T))
        Dim x = From m In Enumerable.Range(0, 1 << list.Count)
                Select From i In Enumerable.Range(0, list.Count)
                       Where (m And (1 << i)) <> 0
                       Select list(i)
        Return x
    End Function

 Dictionary<int, int> listHeight = new Dictionary<int, int>();
        private void heightReceived(string height)
        {
            int eHeight = Int16.Parse( height);
            if (!listHeight.ContainsKey(eHeight))
            {
                listHeight.Add(eHeight, 1);
            }
            else
            {
                listHeight[eHeight] += 1;
            }
            textBox4.Text = eHeight.ToString() + Environment.NewLine + textBox4.Text;
            if (listHeight[eHeight] > chkMax)
            {
                txtHeight.Text = eHeight.ToString();
                chkMax = eHeight;
            }
        }

Dim values() As Integer = {1, 2, 3, 4, 2, 2, 5}
Dim maxOccu = values.GroupBy(Function(a) a).OrderByDescending(Function(b) b.Count).Take(1).Select(Function(c) c.Key)
'result 2

int[] values = {1, 2, 3, 4, 2, 2, 5};
var maxOccu = values.GroupBy(a => a).OrderByDescending(b=> b.Count()).Take(1).Select(c => c.Key);
//result 2