[VB6] Controllo Listview e limiti esauriti per l'indice

[treble]

Scusate, ho un problema con il controllo listview.
Va tutto bene fino al comando listsubitems, ed un messaggio di errore mi dice "limiti esauriti per l'indice".
Qualcuno mi può aiutare ?
Grazie tante.

Do While Not rec.EOF

lsthd.ListItems.Add , , rec!presidio
lsthd.ListItems.Item(x1).ListSubItems(1).Text = rec!ID_hd
lsthd.ListItems.Item(x1).ListSubItems(2).Text = rec!descrizione
lsthd.ListItems.Item(x1).ListSubItems(3).Text = rec!processore
lsthd.ListItems.Item(x1).ListSubItems(4).Text = rec!memoria
lsthd.ListItems.Item(x1).ListSubItems(5).Text = rec!hard_disk
lsthd.ListItems.Item(x1).ListSubItems(6).Text = rec!disco
lsthd.ListItems.Item(x1).ListSubItems(7).Text = rec!note
lsthd.ListItems.Item(x1).ListSubItems(8).Text = rec!utente
lsthd.ListItems.Item(x1).ListSubItems(9).Text = rec!pwd

x1 = x1 + 1
rec.MoveNext

Loop

[alka]

Hai letto il Regolamento?

Di quale linguaggio si tratta? VB6, VB.NET, ...?

Ciao!

[oregon]

Un esempio di codice corretto e' questo

Dim Item As ListItem

Do While Not rec.EOF 
   Set Item = lsthd.ListItems.Add(, , rec!presidio)
   With Item
      .SubItems(1) = rec!ID_hd
      .SubItems(2) = rec!descrizione
      .SubItems(3) = rec!processore
      .SubItems(4) = rec!memoria 
      .SubItems(5) = rec!hard_disk 
      .SubItems(6) = rec!disco 
      .SubItems(7) = rec!note 
      .SubItems(8) = rec!utente 
      .SubItems(9) = rec!pwd 
   End With
   rec.MoveNext 
Loop

[treble]

Si tratta di vb6.
Grazie. Ho risolto.

[Luciano79]

ho lo stesso problema anche dopo aver adattato il codice secondo l'esempio di Oregon:

    Dim Item As ListItem
    If Me.ComboMacchine.ListIndex > -1 Then
        Set Item = Me.ListaPassaggi.ListItems.Add
        Item.ListSubItems(1) = Macchina(Me.ComboMacchine.ListIndex + 1).Nome 'qui da quell'errore
        Item.ListSubItems(2) = LavoroTmp.QtaPrevista
    End If

:master: