Index out of bounds

Bonjour,

Voila le message d'erreur que j'ai "index out of bounds" qui arrive dans je veux extraire d'une listview la ligne ou je click

Voila le bout de code:

Private Sub lvwData_DblClick()
Form2.Show
Form2.Text1.Text = lvwData.SelectedItem.ListSubItems(0).Text ' le problème est cette ligne
Form2.Text2.Text = lvwData.SelectedItem.ListSubItems(1).Text 'ok
Form2.Text3.Text = lvwData.SelectedItem.ListSubItems(2).Text 'ok
Form2.Text4.Text = lvwData.SelectedItem.ListSubItems(3).Text 'ok
Form2.Text5.Text = lvwData.SelectedItem.ListSubItems(4).Text 'ok
Form2.Text6.Text = lvwData.SelectedItem.ListSubItems(5).Text 'ok
End Sub

quand je la retire sa fonctionne mais il suffit que je l'ajout et la erreur "Index Out Of Bounds"

Merci d'avance

gredellisse@hotmail.com

Il lme semble que c'est une collection, index de début 1. Mais je me trompe peut-être, accède directement aux propriétés de SelectedItem.

NH

Private Sub lvwData_DblClick()
    Form2.Show
    Form2.Text1.Text = lvwData.SelectedItem.Text
    Form2.Text2.Text = lvwData.SelectedItem.SubItems(1)
    Form2.Text3.Text = lvwData.SelectedItem.SubItems(2)
    Form2.Text4.Text = lvwData.SelectedItem.SubItems(3)
    Form2.Text5.Text = lvwData.SelectedItem.SubItems(4)
    Form2.Text6.Text = lvwData.SelectedItem.SubItems(5)
End Sub

Daniel