Отсортировать элементы каждого столбца матрицы по абсолютным значениям

 Public Class Form1
    Dim n, m, i, j, k, p As Integer
    Dim Max, AMax As Double
    Dim A(4, 5) As Double
 
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        n = Convert.ToInt32(TextBox1.Text)
        m = Convert.ToInt32(TextBox2.Text)
        ReDim A(m, n)
        k = DataGridView1.ColumnCount
        For i = 1 To k
            DataGridView1.Columns.RemoveAt(0)
        Next
        k = DataGridView2.ColumnCount
        For i = 1 To k
            DataGridView2.Columns.RemoveAt(0)
        Next
        For i = 1 To n
            DataGridView1.Columns.Add("M" & Str(i), Str(i))
            DataGridView1.Columns(i - 1).Width = 40
        Next i
        For i = 1 To m
            DataGridView1.Rows.Add()
            DataGridView1.Rows(i - 1).HeaderCell.Value = Str(i)
            DataGridView1.Rows(i - 1).Height = 35
        Next i
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        For i = 1 To m
            For j = 1 To n
                A(i, j) = DataGridView1.Rows(i - 1).Cells(j - 1).Value
            Next
        Next
        For j = 1 To n
            For i = 1 To m
                If A(i, j) > A(i + 1, j) Then
                    Max = A(i, j)
                    A(i, j) = A(i + 1, j)
                    A(i + 1, j) = k
                End If
 
                A(k, j) = A(i, j)
                A(i, j) = AMax
            Next i
        Next j
        For i = 1 To n
            DataGridView2.Columns.Add("M" & Str(i), Str(i))
            DataGridView2.Columns(i - 1).Width = 40
        Next i
        For i = 1 To m
            DataGridView2.Rows.Add()
            DataGridView2.Rows(i - 1).HeaderCell.Value = Str(i)
            DataGridView2.Rows(i - 1).Height = 35
        Next i
        For i = 1 To m
            For j = 1 To n
                DataGridView2.Rows(i - 1).Cells(j - 1).Value = A(i, j)
            Next
        Next
    End Sub
End Class