Не могу понять логику - Visual Basic .NET

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

Ребята подскажите в чем ошибка. Вот часть кода:

    Public Class Connect
        Public x As Integer, y As Integer 'Координата точки (номера в массиве) с которой соединяемся далее
        Public IsС As Boolean = False 'True если имеется соединение
        Public Type As String
        'тут много еще чего, здесь и далее лишнее убрал для упрощения
    End Class
    Public Class P
        Public x As Integer, y As Integer 'Координата точки (номер в массиве) деленная на 25
        Public Connect1 As Connect 'влево
        Public Connect2 As Connect 'вверх
        Public Connect3 As Connect 'вправо
        Public Connect4 As Connect 'вниз
    End Class
    Public Points(,) As P 'Массив точек
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        drwLineHMode1 = False
        drwLineHMode2 = False
        Dim x As Integer, y As Integer 'Кол-во точек в массиве максимальное
        x = Me.Height
        x = Math.Round(x / 25)
        y = Me.Width
        y = Math.Round(y / 25)
        Me.Height = 500
        Me.Width = 800
        Me.WindowState = FormWindowState.Normal
        ReDim Points(x, y)
        Dim z As New P, c As New Connect
        Dim i As Int16, j As Int16
        c.Type = ""
        For i = 0 To x
            For j = 0 To y
                z.x = i * 25
                z.y = j * 25
                z.Connect1 = c
                z.Connect2 = c
                z.Connect3 = c
                z.Connect4 = c
                Points(i, j) = z
                '[B]Me.RichTextBox1.Text += vbCrLf & "(" & CStr(i) & ", " & CStr(j) & ")      " & CStr(Points(i, j).x) & " : " + CStr(Points(i, j).y)[/B]
            Next
        Next
        For i = 0 To x
            For j = 0 To y
                [B]Me.RichTextBox1.Text += vbCrLf & "(" & CStr(i) & ", " & CStr(j) & ")      " & CStr(Points(i, j).x) & " : " + CStr(Points(i, j).y)[/B]
            Next
        Next
 
        Loading = False
    End Sub

Вопрос: В первом цикле выводит как задумано: (0, 0) 0 : 0 (0, 1) 0 : 25 (0, 2) 0 : 50 ... А уже в следующем цикле получается (0, 0) 1050 : 1300 (0, 1) 1050 : 1300 (0, 2) 1050 : 1300 ... В чем тут прикол?

Решение задачи: «Не могу понять логику»

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

                            'Ваш код
'Ваш код
'Ваш код
        ReDim Points(x, y)
        Dim c As New Connect
        Dim i As Int16, j As Int16
        c.Type = ""
        For i = 0 To x
            For j = 0 To y
                Dim z As New P
                z.x = i * 25
                z.y = j * 25
                z.Connect1 = c
                z.Connect2 = c
                z.Connect3 = c
                z.Connect4 = c
                Points(i, j) = z
                '[B]Me.RichTextBox1.Text += vbCrLf & "(" & CStr(i) & ", " & CStr(j) & ")      " & CStr(Points(i, j).x) & " : " + CStr(Points(i, j).y)[/B]
            Next
        Next
        For i = 0 To x
            For j = 0 To y
                Me.RichTextBox1.Text += vbCrLf & "(" & CStr(i) & ", " & CStr(j) & ")      " & CStr(Points(i, j).x) & " : " + CStr(Points(i, j).y)
            Next
        Next
 
        Loading = False
    End Sub
                        