Написать программу на Visual Basic - VB

Public Class Form1
    Function pr(ByVal y(,) As Integer, ByVal x(,) As Integer) As Integer
        Dim i, k, maxx, maxy, j As Integer
        k = x(0, 0)
        maxx = x(0, 0)
        maxy = y(0, 0)
        For i = 0 To x.GetLength(0)
            For j = 0 To x.GetLength(1)
                maxx = x(i, j)
                If maxx < k Then maxx = k
                k = x(i, j)
            Next
        Next
        k = y(0, 0)
        For i = 0 To y.GetLength(0)
            For j = 0 To y.GetLength(1)
                maxy = y(i, j)
                If maxx < k Then maxx = k
                k = y(i, j)
            Next
        Next
        If maxx < maxy Then maxx = maxy
        Return maxx
    End Function
End Class