Найти произведение максимальных элементов массива

Public Class Form1
    Dim n, m As Integer
    Dim arr(,) As Integer
 
 
    Public Sub SL(ByVal n As Integer, ByVal m As Integer, ByRef x(,) As Integer)
        Dim с As New Random
        Dim a, b As Integer
        Dim i, j As Integer
 
        'a = Val(InputBox("введите начало отрезка", "", "-10"))
        'b = Val(InputBox("введите конец отрезка", "", "10"))
 
        a = -10
        b = 10
        For i = 0 To n - 1
            For j = 0 To m - 1
                x(i, j) = с.Next(a, b)
            Next j
        Next i
    End Sub
    Public Sub Viv_Matr(ByVal n As Integer, ByVal m As Integer, ByVal B As TextBox, ByRef x(,) As Integer)
        Dim i, j As Integer
        B.Text = ""
        For i = 0 To n - 1
            For j = 0 To m - 1
                B.Text = B.Text & Str(x(i, j)) & "  "
            Next j
            B.Text = B.Text & Chr(13) & Chr(10)
        Next i
    End Sub
    Private Sub btnArr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnArr.Click
        n = Val(TextBox1.Text)
        m = Val(TextBox2.Text)
        ReDim arr(n - 1, m - 1)
        SL(n, m, arr)
        Viv_Matr(n, m, TextBox3, arr)
    End Sub
 
 
 
    Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click
 
    End Sub
 
 
    Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click
 
        'Dim matrix As Integer(,) = {{10, 15}, {20, 36}, {55, 60}, {100, 200}}
 
        '  10   20  
        '  15   36 
        '  55   60
        ' 100  200
 
        'n – количество строк
        'm – количество столбцов
 
        'n = 4
        'm = 2
        'Dim s As Integer
        'TextBox5.Text = ""
        's = 0
        'For i = 0 To n - 1
        '    If i Mod 2 = 1 Then
        '        For j = 0 To m - 1
        '            If j Mod 2 = 1 Then 'If i Mod 2 = 1 And j Mod 2 = 1 Then
        '                s = s + matrix(i, j)
        '            End If
        '        Next j
        '    End If
        'Next i
        '*******************************************************************************
 
        'max = arr(0, 0)
        'For i = 0 To n - 1
        '    For j = 0 To m - 1
        '        If arr(i, j) > max Then max = arr(i, j)
        '    Next j
        'Next i
        'cnt = 0
        'For i = 0 To n - 1
        '    For j = 0 To m - 1
        '        If max = arr(i, j) Then cnt = cnt + 1
        '    Next j
        'Next i
        '*******************************************************************************
 
        Dim s As Integer
        TextBox5.Text = ""
        s = 0
        For i = 0 To n - 1
            If i Mod 2 = 1 Then
                For j = 0 To m - 1
                    If j Mod 2 = 1 Then
                        s = s + arr(i, j)
                    End If
                Next j
            End If
        Next i
        TextBox5.Text = TextBox5.Text & Str(s) & "  "
    End Sub
 
    Private Sub btn3_Click(sender As Object, e As EventArgs) Handles btn3.Click
        Dim max As Integer
        Dim nCount As New List(Of Integer)
        ' найти макисмальное значение в массиве
        For i = 0 To n - 1
            For j = 0 To m - 1
                If arr(i, j) > max Then max = arr(i, j)
            Next j
        Next i
        ' подсчте количества MAX
        For i = 0 To n - 1
            For j = 0 To m - 1
                If arr(i, j) = max Then nCount.Add(max)
            Next j
        Next i
        TextBox6.Text = max & "   " & Str(max ^ nCount.Count) & "  nCount:" & Str(nCount.Count)
    End Sub
 
    Private Sub btnQuit_Click(sender As Object, e As EventArgs) Handles btnQuit.Click
        Close()
    End Sub
End Class

Dim arr() As Integer = {22, 3, 45, 74, 11, 74, 23, 65}
Dim max As Integer = arr.Max
Dim nCount As Integer = arr.Where(Function(x) x = max).Count

 Dim arr(,) As Integer

Dim arr(,) As Integer = {{22, 3, 45}, {74, 11, 74}, {23, 65, 12}, {2, 55, 11}}
Dim ar As New List(Of Integer)
For Each v As Integer In arr
    ar.Add(v)
Next
'…