Adding system default icons to a ListView items

' This happens inside a click function

 path = "C:\Users\Michel\Desktop\Documentos\" & cat

        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

        Dim di As New IO.DirectoryInfo(path)
        Dim diar1 As IO.FileInfo() = di.GetFiles()
        Dim dra As IO.FileInfo


        Try
            ListView1.View = View.Details
            ListView1.Items.Clear()
           

            Dim lCurrent As ListViewItem

            For Each dra In diar1

                lCurrent = ListView1.Items.Add(dra.Name)
                lCurrent.SubItems.Add(dra.LastWriteTime)

                lCurrent.Tag = dra

            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
...