¿Cómo extrae el control vb listview los datos de la columna 3 de una fila y los muestra en el cuadro de texto cuando se selecciona una fila?

Subcomando privado1_Click()

Con ListView1.ListItems.Add

.SubItems(1) = i & "a"

.SubItems(2) = i & "b"

.SubItems(3) = i & "c"

Terminar con

i = i + 1

End Sub

Sub Command2_Click()

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

End Sub

Sub privado Form_Load()

ListView1.View = lvwReport

ListView1.ColumnHeaders.Clear

Usar ListView1.ColumnHeaders

.Agregar , , "", 10

.Agregar , , "Primera columna", 1000

.Agregar , , "Segunda columna", 2000

."Tercera columna", 2000

Terminar con

i = 1

Fin Sub