Заполнить ListView информацией о текущих процессах

Dim item1 As ListViewItem
        Dim str As String = ""
 
        For Each proc As Process In Process.GetProcesses
            If proc.MainWindowHandle.ToString <> "0" Then
'вот тут место str надо установить иконку этого процесса              
  item1 = New ListViewItem((str), 0)
                item1.SubItems.Add(proc.ProcessName)
                item1.SubItems.Add(proc.Modules(0).FileName)
                ListView1.Items.AddRange(New ListViewItem() {item1})
            End If
        Next

ImageList1.Images.Clear()
        ListView1.Items.Clear()
 
        Dim item1 As ListViewItem
 
        For Each proc As Process In Process.GetProcesses
            If proc.MainWindowHandle.ToString <> "0" Then
                ImageList1.Images.Add(Icon.ExtractAssociatedIcon(proc.Modules(0).FileName).ToBitmap)
                item1 = New ListViewItem("", ImageList1.Images.Count - 1)
                item1.SubItems.Add(proc.ProcessName)
                item1.SubItems.Add(proc.Modules(0).FileName)
                ListView1.Items.AddRange(New ListViewItem() {item1})
            End If
        Next