Удалить из массива строку и столбец, на пересечении которых находится наибольший элемент

Option Strict On
Option Explicit On
Imports System.Math
Public Class Form1
    'Процедура вывода результата в TextBox
    Sub vivod(ByVal Z As Double, ByVal T As TextBox)
        T.Text = CStr(Z)
    End Sub
    'Формирование массива случайным образом
    Sub rndMatr(ByRef a(,) As Single)
        Dim m, n As Integer
        ReDim a(8, 4)
        m = a.GetLength(0) - 1
        n = a.GetLength(1) - 1
        For i = 0 To m
            For j = 0 To n
                a(i, j) = CInt(Rnd(1) * 100 - 50)
            Next j
        Next
    End Sub
 
    'Процедура форматированного вывода двумерного массива 
    ' типа Single в ListBox
    Sub vivodSngMac19(ByRef x(,) As Single, ByRef LB As ListBox)
        Dim i, j, m, n As Integer
        Dim z, z1 As String
        m = x.GetLength(0) - 1
        n = x.GetLength(1) - 1
        LB.Items.Clear()
        For i = 0 To m
            z = ""
            For j = 0 To n
                z1 = Format(x(i, j), "0.000")
                If x(i, j) < 0 Then
                    z1 = Space(2) + z1
                Else
                    z1 = Space(3) + z1
                End If
                z = z + z1
            Next j
            LB.Items.Add(z)
        Next i
    End Sub
    'Процедура поиска наибольшего элемента массива
    Public Sub m0(ByRef a(,) As Single)
        Dim b(,) As Single
        Dim RawCount, ColumnCount As Integer
        Dim i, j, nn, mm As Integer
        Dim max, imax, jmax As Single
        RawCount = a.GetLength(0) : ColumnCount = a.GetLength(1)
        mm = RawCount - 1 : nn = ColumnCount - 1
        max = a(0, 0) : imax = 0 : jmax = 0
        For i = 0 To mm
            For j = 0 To nn
                If a(i, j) > max Then max = a(i, j) : imax = i : imax = j
            Next
        Next
        b = a
        ReDim b(mm - 1, nn - 1)
        For i = 0 To nn - 1
            For j = 0 To mm - 1
                b(i, j) = a(CInt((IIf(i >= imax, i + 1, i))), CInt(IIf(j >= jmax, j + 1, j)))
            Next
        Next
        vivod(imax, TextBox1)
        vivod(jmax, TextBox2)
        vivod(max, TextBox3)
        vivodSngMac19(a, ListBox2)
    End Sub
    'Процедура обработки нажатия кнопки.
    Private Sub Button1_Click(ByVal sender As System.Object, _
           ByVal e As System.EventArgs) Handles Button1.Click
        Dim a(,), b(,) As Single
        rndMatr(a)
        vivodSngMac19(a, ListBox1)
        m0(a)
 
    End Sub
 
 
End Class