Comment afficher les valeurs d'un listview dans des text box

Private Sub Listview1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    Dim i As Byte
'ligne = Item.Index ' ListView1.ListItems(Item.Index).ListSubItems(26 - 1).Text
'Stop
   ' If Me.OptionButton2 Then 'modifier
        TextBox2.Text = ListView1.ListItems(Item.Index).Text
        For i = 3 To 24
            Me("TextBox" & i).Text = ListView1.ListItems(Item.Index).ListSubItems(i - 2).Text
        Next i
   ' End If

End Sub
'à ajouter à la fin de lvw_fill
'La première ligne est toujours sélectionnée par défaut lors de l'initialisation.
' Si vous avez besoin de la déselectionner, utilisez

ListView1.ListItems(1).Selected = False
Set ListView1.SelectedItem = Nothing