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

    Dim RowDown As Integer = 0
    Dim Row As Integer = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Do While RowDown = 0
            TextBox1.Text = ""
            Dim Matr(4, 4) As Integer
            Dim R As New Random
 
            Dim Tmp As Integer = 0
            'Формируем матрицу и выводим
            For Y As Integer = 0 To 4
                For X As Integer = 0 To 4
                    Matr(X, Y) = R.Next(0, 10)
                    TextBox1.AppendText(Matr(X, Y) & vbTab)
                Next
                TextBox1.AppendText(vbCrLf)
            Next
            Tmp = Matr(0, 0)
            'Проверяем строки матрицы
            Dim TmpBool As Boolean
 
 
            For Y As Integer = 0 To 4
                Tmp = Matr(0, Y)
                TmpBool = True
                For X As Integer = 1 To 4
                    If Matr(X, Y) >= Tmp Then
                        TmpBool = False
                        Exit For
                    End If
                    Tmp = Matr(X, Y)
                Next
                If TmpBool = True Then
                    RowDown += 1
                    Row = Y
                End If
            Next
        Loop
        MsgBox(RowDown & vbCrLf & Row)
    End Sub