Bonjour à tous,

Je suis face avec un preblème de loop until en vb6

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command4_Click()
 
Do Until Combo4.List < 0
   Combo4.ListIndex = Combo4.ListIndex + 1
 
 
'Série de fonction non marqué ...........
 
 
Loop
MsgBox "fin"
End Sub
La loop se fait avec le Combo4. Il dois passer 1 par 1, à travers la liste du combo4. Une fois la fin de la liste atteint, la loop se termine et il me dit que la liste est complété ex:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
msgbox " Complété "
Merci encore pour votre aide.