Hacer una lista detallada con un ListView

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    Dim Carpeta As New System.IO.DirectoryInfo("d:\user\tutos")
    Dim ListaArchivos() As System.IO.FileInfo = Carpeta.GetFiles
    Me.ListView1.View = View.Details
    With Me.ListView1
        .Columns.Add("Nombre", 200, HorizontalAlignment.Center)
        .Columns.Add("Tamaño", 80, HorizontalAlignment.Right)
        .Columns.Add("Fecha", 100, HorizontalAlignment.Center)
    End With
    Dim cmpt As Int32
    For cmpt = 0 To ListaArchivos.GetUpperBound(0)
        With Me.ListView1.Items.Add(ListaArchivos(cmpt).Name)
            .SubItems.Add(ListaArchivos(cmpt).Length.ToString)
            .SubItems.Add(ListaArchivos(cmpt).CreationTime.ToString)
            If ListaArchivos(cmpt).Extension.IndexOf("zip") > 0 Then
                .ForeColor = Color.Green
            End If
        End With
    Next
 
End Sub