arrays - 配列を使用してvbで列名をカスタマイズする方法は?

Question

私はvb.netが初めてです。インターネットからのいくつかのサンプルコードを含むサンプルデータグリッドビューがあります。実行中のコードは配列を使用しており、コードに基づいています。

Const NumberOfColumns As Integer = 8
        Const NumberOfRows As Integer = 8

        Dim ColumnNumber As Integer
        Dim RowNumber As Integer

        Dim A As Integer = Asc("Pupil's Name")

        Dim Array2D(NumberOfRows, NumberOfColumns) As Integer

        DataGridView1.ColumnCount = NumberOfColumns
        DataGridView1.RowCount = NumberOfRows

        'Make the headers

        For RowNumber = 0 To NumberOfRows - 1
            DataGridView1.Rows.Item(RowNumber).HeaderCell.Value = _
  (RowNumber + 1).ToString
        Next

        For ColumnNumber = 0 To NumberOfColumns - 1
            DataGridView1.Columns.Item(ColumnNumber).HeaderCell.Value = _
   Chr(A + ColumnNumber).ToString
            DataGridView1.Columns.Item(ColumnNumber).HeaderCell.Style.Alignment = _
   DataGridViewContentAlignment.MiddleCenter
        Next

        'Fill the Array

        For RowNumber = 0 To NumberOfRows - 1
            For ColumnNumber = 0 To NumberOfColumns - 1
                Array2D(RowNumber, ColumnNumber) = _
   RowNumber * NumberOfColumns + ColumnNumber
            Next
        Next

        'Fill the Data Grid

        For RowNumber = 0 To NumberOfRows - 1
            For ColumnNumber = 0 To NumberOfColumns - 1
                DataGridView1.Item(ColumnNumber, RowNumber).Value = _
   Array2D(RowNumber, ColumnNumber)
                DataGridView1.Item(ColumnNumber, RowNumber).Style.Alignment = _
   DataGridViewContentAlignment.MiddleCenter
            Next
        Next

カスタマイズした列名を挿入する方法がわかりません。datagridview を右クリックしてその列名を編集しようとしましたが、実行すると、列名が datagridview で編集した列名の最初の文字を取得してループしました。私の質問に重複がある場合は申し訳ありません。コードを投稿して、私が何を尋ねようとしているのかを誰でも理解できるようにしました。これについて本当に助けが必要です。:(