Как создать коллекцию из рисунков, находящихся в ImageList

listView1.Items.Add(new ListViewItem("Image", imageList1.Images.Count - 1))

Dim str As String = ""
        Dim n As Integer = 0
        Dim c As Integer = 0
        'создаю колонки в DataGridView
        Dim column1, column2, column3, column4 As New DataGridViewImageColumn
        'добавляю созданые колонки в DataGridView
        DataGridView1.Columns.Add(column1)
        DataGridView1.Columns.Add(column2)
        DataGridView1.Columns.Add(column3)
        DataGridView1.Columns.Add(column4)
 
 
        'начинаю перебор всех строк в ListBox2
        For i = 0 To ListBox2.Items.Count - 1
            If ListBox2.Items(i) <> "" Then
                'если строка в ListBox2 не пустая,добавляю строку в DataGridView1
                DataGridView1.Rows.Add()
 
                'разбиваю текст из строки ListBox2 по символам
                For n = 1 To Len(ListBox2.Items(i))
                    'c - индекст столбца в DataGridView1
                    c = n - 1
                    str = Mid$(ListBox2.Items(i), n, 1)
                    'проверяю значение символа и соответственно задаю какой рисунок должен быть помещён в ячейку DataGridView1
                    If str = "1" Then
                        DataGridView1.Item(i, c).Value = New Bitmap(proect.My.Resources.Resources.krug)
                    End If
                    If str = "2" Then
                        DataGridView1.Item(i, c).Value = New Bitmap(proect.My.Resources.Resources.kvadrat)
                    End If
                    If str = "3" Then
                        DataGridView1.Item(i, c).Value = New Bitmap(proect.My.Resources.Resources.treug)
                    End If
                Next n
            End If
 
        Next