Sitter och funderar på lite om hur man presenterar data från en listview och lägger in i en label?

Hoppas att nån kan ge mig ett tips

/Stefan

Följande ex läser data från tre textboxar till en listview i reportläge i Command1_Click(). I Command2_Click() läses data från vald rad i listview till tre labels. Observera här att första raden i listview är vald som defalt om inget annat anges.

I Form1, läggtill controllerna:
ListView1
Text1
Text2
Text3
Label1
Label2
Label3
Command1
Command2

Private Sub Command1_Click()
ListView1.ListItems.Add , , Text1.Text
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Text2.Text
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Text3.Text
End Sub

Private Sub Command2_Click()
Label1.Caption = ListView1.SelectedItem.Text
Label2.Caption = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(1).Text
Label3.Caption = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(2).Text
End Sub

Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "Förnamn"
ListView1.ColumnHeaders.Add , , "Efternamn"
ListView1.ColumnHeaders.Add , , "Telefon"
End Sub

Hej! Hur går det med ditt projekt??