ListView не отображает на найденных файлах значок изображения

Public Class Form1
 
    'Список файлов
    Private Sub ListFiles(ByVal folderPath As String)
        ListView1.Items.Clear()
        Dim fileNames = My.Computer.FileSystem.GetFiles(
            folderPath, FileIO.SearchOption.SearchTopLevelOnly, "*.pdf")
        For Each fileName As String In fileNames
            ListView1.Items.Add(fileName)
        Next
    End Sub
    'Рескан папок
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ListFiles(FolderBrowserDialog1.SelectedPath)
    End Sub
    'Событие для мышки (открытие фалов)
    Private Sub ListView1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDoubleClick
        Process.Start(ListView1.SelectedItems(0).Text)
    End Sub
    'Здесь живут кнопки
    Private Sub browseButton_Click(sender As Object, e As EventArgs) Handles browseButton.Click
        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
            'Скан папок
            ListFiles(FolderBrowserDialog1.SelectedPath)
        End If
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Set the default directory of the folder browser to the current directory.
        FolderBrowserDialog1.SelectedPath = My.Computer.FileSystem.CurrentDirectory
    End Sub
 
End Class

Public Class Form1
    'Инициализация иконок
    Private Sub InitializeListView()
        ListView1.Items(0).ImageIndex = 0
    End Sub
    'Список файлов
    Private Sub ListFiles(ByVal folderPath As String)
        ListView1.Items.Clear()
        Dim fileNames = My.Computer.FileSystem.GetFiles(
            folderPath, FileIO.SearchOption.SearchTopLevelOnly, "*.pdf")
        For Each fileName As String In fileNames
            ListView1.Items.Add(fileName)
            InitializeListView()
        Next
    End Sub
    'Кнопки
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
            ListFiles(FolderBrowserDialog1.SelectedPath) 'Скан папок
        End If
    End Sub
    'Открытие файлов
    Private Sub ListView1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDoubleClick
        Process.Start(ListView1.SelectedItems(0).Text)
    End Sub
End Class