ma scusa qual'è il problema???

codice:
Private Sub Command1_Click()
    ListView1.View = lvwReport
    ListView1.ColumnHeaders.Add , , "Colonna 1"
    ListView1.ColumnHeaders.Add , , "Colonna 2"
    ListView1.ListItems.Add , , "Valore 1" , , 1 
    ListView1.ListItems(1).ListSubItems.Add , , "Valore 2" , 2 
End Sub
ti ho segnato in rosso le modifiche....ma forse non ho capito esattamente il problema...