With ListView1 ' Encabezados de columna .ColumnHeaders.Add , , " URL ", 4000 ' Vista de reporte .View = lvwReport End With