Afficher le premier collone du listview dans textbox

bonjour forum

Qui peut me corriger mon code ,je n'arrive pas a afficher le premier collone
afficher le premier collone du listview dans textbox26

--------------------------------------------------------------------------------------

    Private Sub ListView4_Click()
    'Dim maLigne As Long
    'Dim index1 As Integer
    Dim i As Long
    For i = 1 To ListView4.ListItems.Count
        'Affiche le contenu de la 1ere colonne pour chaque ligne sélectionnée
       If ListView4.ListItems(i).Selected = True Then MsgBox ListView4.ListItems(i).Text
                       

    With ListView4.ListItems(ListView4.SelectedItem.Index)
       ' TextBox26.Value = .ListSubItems(0)
        TextBox27.Value = .ListSubItems(1)
         TextBox28.Value = .ListSubItems(2)
         TextBox29.Value = .ListSubItems(3)
         TextBox30.Value = .ListSubItems(4)
        TextBox31.Value = .ListSubItems(5)
        TextBox32.Value = .ListSubItems(6)
        TextBox33.Value = .ListSubItems(7)
        TextBox45.Value = .ListSubItems(8)
        TextBox46.Value = .ListSubItems(9)
        'Lbl_dureeOperation.Caption = .ListSubItems(8)
    End With
    Next
    End Sub

-------------------------------------------------------------------------------------------------
merci