Определение индексов максимального элемента массива

        Dim Mass() As Integer = {1, 5, 3, 6, 3, 6, 29, 2, 234, 34}
        Dim MaxIndex As Integer = 0
        For i = 0 To Mass.Length - 1 Step 1
            If MaxIndex < Mass(i) Then
                MaxIndex = i
            End If
        Next
        Dim P_rint As Graphics = Me.CreateGraphics
        Dim Text As String = "Индекс макс. эл. массива: " & MaxIndex
        Dim F_ont As New Font("Arial", 18, FontStyle.Bold)
        P_rint.DrawString(Text, F_ont, Brushes.Black, 0, 0)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Mass(1, 1) As Integer
        Mass(0, 0) = 500
        Mass(0, 1) = 20
        Mass(1, 0) = 3000
        Mass(1, 1) = 10
        Dim Max As Integer = 0
        Dim MaxIndex As Integer = 0
        Dim MaxColumn As Integer = 0
        For i = 0 To 1 Step 1
            For j = 0 To 1 Step 1
                If Max <= Mass(i, j) Then
                    Max = Mass(i, j)
                    MaxColumn = i
                    MaxIndex = j
                End If
            Next
        Next
        MsgBox("Максимальный эл. массива: " & Max & ". Строка: " & MaxColumn & ". Индекс " & MaxIndex & ".")
    End Sub