Добавление картинок в ListView

Dim ImageList1 As New ImageList With {.ColorDepth = ColorDepth.Depth32Bit}
        Dim ListView1 As New ListView With {.View = View.Details, .Top = 10, .Left = 10, .Width = 580, .Height = 340, .SmallImageList = ImageList1}
        Me.Controls.Add(ListView1)
        ListView1.Columns.Add("Процесс", 109)
        ListView1.Columns.Add("Путь к файлу", 270)
        ListView1.Columns.Add("Заголовок активного окна", 170)
        ImageList1.Images.Clear()
        ListView1.Items.Clear()
        Dim Lst() As Process
        Lst = Process.GetProcesses()
        Dim p As Process
        For Each p In Lst
            Try
                Dim ico As Icon = Icon.ExtractAssociatedIcon(p.MainModule.FileName)
                ImageList1.Images.Add(ico)
                ListView1.Items.Add(p.ProcessName)
                ListView1.Items(ListView1.Items.Count - 1).ImageIndex = ImageList1.Images.Count - 1
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(p.MainModule.FileName)
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(p.MainWindowTitle)
            Catch ex As Exception
            End Try
        Next

Dim ico As Icon = Icon.ExtractAssociatedIcon(p.MainModule.FileName)