Do loops

[VBGangsta]

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

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  ????????