Do loops

I am trying to do something with the items on a list box. Everything works fine in this code but i want to loop it till there are no items lest in the listbox. Timer1 does some events that i did not show here but it does not apply to this question. So my 2 qustions are:
1. How do i loop the loop until there are no items left in the listbox
2. How make the loop only intiate evry 2 seconds because the webroswer needs time to load. Thanks

VB Code:

Do
            For Each names In lboPlayers.Items
            Next
            url2 = "http://www.outwar.com/managecrew.php?playername=" & names & "&submit=Invite"
            wbweb2.Navigate(url2)
            Timer1.Enabled = True
        Loop Until  ????????

looping through the listbox

VB Code:

'1.1 Code
'where obj is the object u stored in, if string then use as string
for each obj as object in listbox1.items 
   MessageBox.show(obj.toString())
next
 
'1.o Code
'where obj is the object u stored in, if string then use as string
dim obj as object
for each obj in listbox1.items 
   MessageBox.show(obj.toString())
next

put this code in a timer that has a interval of 2000 milliseconds
and ur set