Listbox and Msgbox in VB6?

Question

I'm looking to cycle through items in a listbox and output each item into a messagebox. So, for example. I have a listbox which contains the values Apple and Orange one after the other. What I want to do is have two message boxes display upon clicking a button which will display 'Apple' in the first messagebox then 'Orange' in the second. The amount of entries in the list could vary so I would need it to loop through until all the entries had been outputted to msgboxes.

Answer 1

You don't need two msgboxes.

for intCounter = 0 to lstListBox.Listcount-1
msgbox lstListBox.List(intCounter)
next intCounter

that should do it.

Answer 2

dim previous as string
dim current as string
dim ctr as integer

previous = ""

for ctr = 0 to lstMessages.Count -1

if ctr > 0 then previous = lstMessages.List(ctr - 1)
current = lstMessages.List(ctr)

msgbox(previous) 'display the previous one
msgbox(current) 'display the current item

next



'something like that????