vb listview控件中如何在選中某壹行時將此行的第3列數據提取到文本框中顯示，急！

Private Sub Command1_Click()

With ListView1.ListItems.Add

.SubItems(1) = i & "a"

.SubItems(2) = i & "b"

.SubItems(3) = i & "c"

End With

i = i + 1

End Sub

Private Sub Command2_Click()

Text1.Text = ListView1.SelectedItem.SubItems(3)

End Sub

Private Sub Form_Load()

ListView1.View = lvwReport

ListView1.ColumnHeaders.Clear

With ListView1.ColumnHeaders

.Add , , "", 10

.Add , , "第壹列", 1000

.Add , , "第二列", 2000

.Add , , "第三列", 2000

End With

i = 1

End Sub