Построить матрицу отношения R

Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form2
    Private n, m, a, b As Integer
    Private AA() As Integer, BB() As Integer
    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        ListBox3.Items.Clear()
        ListBox4.Items.Clear()
        Chart1.Visible = False
    End Sub
    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        If Not Integer.TryParse(TextBox1.Text, n) OrElse n = 0 Then
            TextBox1.Focus()
            TextBox1.SelectAll()
        End If
    End Sub
    Private Sub TextBox2_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox2.TextChanged
        If Not Integer.TryParse(TextBox2.Text, m) OrElse m = 0 Then
            TextBox2.Focus()
            TextBox2.SelectAll()
        End If
    End Sub
    Private Sub TextBox3_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox3.TextChanged
        If Not Integer.TryParse(TextBox3.Text, a) Then
            TextBox3.Focus()
            TextBox3.SelectAll()
        End If
    End Sub
    Private Sub TextBox4_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox4.TextChanged
        If Not Integer.TryParse(TextBox4.Text, b) Then
            TextBox4.Focus()
            TextBox4.SelectAll()
        End If
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ListBox1.DataSource = Nothing
        ListBox2.DataSource = Nothing
        If n = 0 Then Exit Sub
        If a >= b Then Exit Sub
        Dim rnd As New Random
        ReDim AA(n - 1)
        ReDim BB(n - 1)
        For i = 0 To n - 1
            AA(i) = rnd.Next(a, b + 1)
            BB(i) = rnd.Next(a, b + 1)
        Next
        Array.Sort(AA)
        Array.Sort(BB)
        ListBox1.DataSource = AA
        ListBox2.DataSource = BB
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        ListBox3.DataSource = Nothing
        If m = 0 OrElse m >= n Then Exit Sub
        Dim k As Integer = n - m
        Dim x(m - 1) As Integer, y(m - 1) As Integer
        Dim xy((m) * (m) - 1) As Point
        Dim t, xi As Integer
        For i = k To n - 1
            x(t) = AA(i)
            y(t) = BB(i)
            t += 1
        Next
        t = 0
        For i = 0 To m - 1
            xi = x(i)
            For j = 0 To m - 1
                xy(t) = New Point(xi, y(j))
                t += 1
            Next
        Next
        ListBox3.DataSource = xy.Distinct().ToArray
    End Sub
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        ListBox4.DataSource = Nothing
        Dim xx() As Integer = Enumerable.Range(0, n).ToArray
        Dim yy() As Integer = Enumerable.Range(0, n).ToArray
        Dim rr(n - 1) As Point
        shuffleArray(xx)
        shuffleArray(yy)
        For i = 0 To n - 1
            rr(i) = New Point(AA(xx(i)), BB(yy(i)))
        Next
        ListBox4.DataSource = rr
        With Chart1
            .Width = 390
            .Height = 225
            .ChartAreas.Clear()
            .ChartAreas.Add("pnt")
            .Series.Clear()
            .Series.Add("R")
            .Series(0).ChartType = SeriesChartType.Point
            .Series(0).IsVisibleInLegend = False
            .Series(0).Color = Color.Red
            .Series(0).MarkerStyle = MarkerStyle.Circle
            Dim dp(n - 1) As DataPoint
            For i = 0 To n - 1
                dp(i) = New DataPoint(rr(i).X, rr(i).Y)
                dp(i).Label = rr(i).X.ToString & ";" & rr(i).Y.ToString
                .Series(0).Points.Add(dp(i))
            Next
            .Visible = True
        End With
    End Sub
    Private Sub shuffleArray(x() As Integer)
        Dim rnd As New Random
        Dim shf, tmp As Integer
        For i = 0 To x.Length - 1
            shf = i + rnd.Next(n - i - 1)
            tmp = x(i)
            x(i) = x(shf)
            x(shf) = tmp
        Next
    End Sub
End Class

Dim _relationMatrix = New Integer(AA.Count - 1)() {}
For i As Integer = 0 To AA.Count - 1
    _relationMatrix(i) = New Integer(BB.Count - 1) {}
    For j As Integer = 0 To BB.Count - 1
        If rr.Contains(New Point(AA(j), BB(i))) Then
            _relationMatrix(i)(j) = 1
        End If
    Next
Next

Dim _relationMatrix = New Integer(AA.Count - 1)() {}
            Dim cnt As Integer = 0
            For i As Integer = 0 To AA.Count - 1
                _relationMatrix(i) = New Integer(BB.Count - 1) {}
                For j As Integer = 0 To BB.Count - 1
                    If rr.Contains(New Point(AA(j), BB(i))) Then
                        _relationMatrix(i)(j) = 1
                    Else
                        _relationMatrix(i)(j) = 0
                    End If
                    If cnt <> AA.Count - 1 Then
                        TextBox5.Text += _relationMatrix(i)(j).ToString + Space(2)
                        cnt += 1
                    Else
                        TextBox5.Text += _relationMatrix(i)(j).ToString + Space(2)
                        cnt = 0
                        TextBox5.Text += vbCrLf
                    End If
                Next
            Next

 '________________График
        With Chart1
            .Width = 390
            .Height = 225
            .ChartAreas.Clear()
            .ChartAreas.Add("pnt")
            .Series.Clear()
            .Series.Add("R")
            .Series(0).ChartType = SeriesChartType.Point
            .Series(0).IsVisibleInLegend = False
            .Series(0).Color = Color.Red
            .Series(0).MarkerStyle = MarkerStyle.Circle
            Dim dp(n - 1) As DataPoint
            For i = 0 To n - 1
                dp(i) = New DataPoint(rr(i).X, rr(i).Y)
                dp(i).Label = rr(i).X.ToString & ";" & rr(i).Y.ToString
                .Series(0).Points.Add(dp(i))
            Next
            .Visible = True
        End With