.NET 4.x Вставка картинки в Listview - Visual Basic .NET

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

Всем доброго времени суток!

Не знаю, как решить проблему. На форме Listview с несколькими колонками. НУЖНО в первую колонку поместить картинку из файла или иконку, а в остальные - текст. Пока у меня получается так (см. миниатюру 1), а нужно чтобы было как на 2-й миниатюре. Вот код

Public Class Form1
 
    Dim listviewitem As ListViewItem
    'Create a new ImageList with the size you want the icons to be
    Private ImgList As New ImageList With {.ImageSize = New Size(24, 24)}
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListView1.View = View.Details
        ListView1.FullRowSelect = True
        ListView1.SmallImageList = ImgList
              With ListView1.Columns
            .Add("Icon", 60, HorizontalAlignment.Center)
            .Add("   Имя События.", 150, HorizontalAlignment.Left)
            .Add("Дата события", 200, HorizontalAlignment.Center)
            .Add("Дата напоминания", 200, HorizontalAlignment.Center)
 
        End With
           End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          ImgList.Images.Add(My.Resources.Books)
        ImgList.Images.Add(My.Resources.Chrome)
        ImgList.Images.Add(My.Resources.Dreamviewer)
        Dim lvi As New ListViewItem("", ImgList.Images.Count - 1) 'set the icon for the ListViewItem with an empty string for its Text
          ListViewItem = New ListViewItem()
        listviewitem.SubItems.Add(InputBox("Вписать новое событие", "Добавление события.", ""))
        listviewitem.SubItems.Add(DateTimePicker1.Value)
        listviewitem.SubItems.Add(DateTimePicker2.Value)
        Me.ListView1.Items.Add(listviewitem)
             For i = 0 To ImgList.Images.Count - 1
                    ListView1.Items.Add("", i)
        Next
       End Sub
End Class

Спасибо за помощь и понимание.

Решение задачи: «.NET 4.x Вставка картинки в Listview»

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

                              Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
        ImgList.Images.Add(My.Resources.Books)
        ImgList.Images.Add(My.Resources.Chrome)
        ImgList.Images.Add(My.Resources.Dreamviewer)
        MsgBox(ImgList.Images.Count)
        Dim item As ListViewItem = New ListViewItem("")
        Dim objItem = ListView1.Items.Item(ListView1.FocusedItem.Index) ' индекс выбранной записи
        With objItem
            '  .SubItems.Item(1).Text = InputBox("Вписать новое событие", "Добавление события.", "") ' заменяем столбец 2
            ' .SubItems.Item(2).Text = DateTimePicker1.Value ' заменяем столбец 3
            '  .SubItems.Item(3).Text = DateTimePicker2.Value ' заменяем столбец 4
            .ImageIndex = i 'индекс изображения
        End With
        i = i + 1
    End Sub
                        