looping Through ListBox (VB6)

[filion]

I'm trying to get a loop to run through every line of my ListBox starting with the first one. What I've got so far runs through the lines but erases them when jumping to the next. Also I have tried for the loop to terminate at EOF using "Do Until EOF(1)" but it's returning an error.

Any input is greatly appreciated; this is my code so far....

Private Sub mnuFCMod_Click()
Dim Item As String
Dim i As Integer

i = 0
Do
code...

List1.List(i) = Item
List1.Tag = i 'tag the number of file entries
i = i + 1
Loop
End Sub

[Steve Grant]

It is difficult from your code snippet to know if what you have posted, represents everything. But here are my thoughts;

Dim Item As String
Dim i As Integer

i = 0
Do
code...

List1.List(i) = Item
List1.Tag = i 'tag the number of file entries
i = i + 1
Loop

You Dim Item as a string but do not appear to set it to anything, so you are putting a blank string into the list.

To iterate through the List try;

For i=0 to List1.listcount-1
    Item="Place something in this string"
    List1.list(i)=Item
Next i

List1.tag=List1.ListCount

Edit:
It occurs to me that what you may be after is to read each entry in the list that's already there;

Dim Item() As string
For i=0 to List1.listcount-1
    Redim Preserve Item(i)
    Item(i)=List1.list(i)
Next i

List1.tag=List1.ListCount

Steve.

[filion]

Thanks Steve; works beautifully.