Stuff

    Max = arr(0, 0)
    k = 0
    For i = 0 To n - 1
        For j = 0 To m - 1
            If arr(i, j) > Max Then
                Max = arr(i, j)
                k = 0
                ReDim b(k)
            End If
            If arr(i, j) = Max Then
                ReDim b(k)
                b(k) = j
                k = k + 1
            End If
        Next
    Next
    k = 0
    For i = 0 To UBound(b)
        k = k + 1
        For j = 0 To n - 1
            For t = n - 1 To 1 Step -1
                arr(j, b(i) + t + 1) = arr(j, b(i) + t)
                Picture2.Print arr(j, b(i) + t + 1);
            Next
            arr(j, b(i) + k) = 0
        Next
        m = m + 1
    Next