metti una Listview nel tuo progetto e prova questo codice:

codice:
Private Sub Command1_Click()
    ListView1.View = lvwReport
    ListView1.ColumnHeaders.Add , , "Colonna 1"
    ListView1.ColumnHeaders.Add , , "Colonna 2"
    ListView1.ListItems.Add , , "Valore 1"
    ListView1.ListItems(1).ListSubItems.Add , , "Valore 2"
End Sub
Ciao.