Как вставить после каждого столбца, содержащего максимальный по модулю элемент, столбец из нулей? - Visual Basic .NET

Формулировка задачи:

Дан двумерный массив размером n*m, заполненный случайным образом. 1. Вставить после каждого столбца, содержащего максимальный по модулю элемент, строку из нулей. 2. Удалить из него каждую строку, содержащую элемент, кратный трем . массив я задаю кодом

 Dim a(,) As Integer, n, m As Byte
        Dim b As New Random, i, j As Byte
        n = Val(TextBox1.Text) : m = Val(TextBox2.Text)
        ReDim a(n - 1, m - 1)
        DataGridView1.ColumnHeadersVisible = False
        DataGridView1.RowHeadersVisible = False
        DataGridView1.RowCount = n 'Количество строк в таблице
        DataGridView1.ColumnCount = m 'Количество столбцов
        For i = 0 To n - 1
            For j = 0 To m - 1
                a(i, j) = b.Next(-10, 10)
                'Установка ширины столбца
                DataGridView1.Columns(j).Width = 40
                'Установка стиля ячейки: вывод в центр ячейки
                DataGridView1.DefaultCellStyle.Alignment = _
                DataGridViewContentAlignment.BottomCenter
                'Вывод элементов a(i, j), в j-ую ячейку i-ой строки
                DataGridView1.Rows(i).Cells(j).Value = Str(a(i, j))
            Next j
        Next i

а вот 1 задание не могу понять , дошел только до того что нахожу максимальный элемент

 max = a(0, 0)
        imax = 0
        jmax = 0
        For i = 0 To n - 1
            For j = 0 To m - 1
                If a(i, j) > max Then
                    max = a(i, j)
                    imax = i
                    jmax = j
                End If
            Next
        Next

Как сделать 1 задание правильно, кто подскажет?

1 задание я сделал , а как 2 сделать*?

Решение задачи: «Как вставить после каждого столбца, содержащего максимальный по модулю элемент, столбец из нулей?»

textual
                            Листинг программы 
                        

                            Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim n As Integer = 5, m As Integer = 6
    Dim A(n - 1, m - 1) As Integer
    Dim rw As New List(Of Integer)
    Dim is3 As Boolean
    Dim rnd As New Random
    dgvSetting(DataGridView1, n, m)
    'формируем исходную матрицу и отображаем ее в DataGridView1
    'а заодно определяем строки не содержащие элементов кратных 3
    For i = 0 To n - 1
        is3 = False
        For j = 0 To m - 1
            A(i, j) = rnd.Next(-50, 50)
            If A(i, j) Mod 3 = 0 Then is3 = True
            DataGridView1.Rows(i).Cells(j).Value = A(i, j)
        Next
        If Not is3 Then rw.Add(i)
    Next
    'выводим результат в DataGridView2 (или заполняем новую матрицу если нужно)
    n = rw.Count
    If n = 0 Then
        MsgBox("n=0")
        Exit Sub
    End If
    dgvSetting(DataGridView2, n, m)
    For i = 0 To n - 1
        For j = 0 To m - 1
            DataGridView2.Rows(i).Cells(j).Value = A(rw(i), j)
        Next
    Next
End Sub
Private Sub dgvSetting(ByVal dgv As DataGridView, ByVal nn As Integer, ByVal mm As Integer)
    With dgv
        .ColumnCount = mm
        .RowCount = nn
        .ColumnHeadersVisible = False
        .RowHeadersVisible = False
        .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
    End With
End Sub
                        