With ListView1 .ColumnHeaders.Add , , "Columna1" .ColumnHeaders.Add , , "Columna2" .View = lvwReport End With