Need some help - ListBox Counter

[Fragma]

I've coded an application which allows people to import a list of usernames, and check whether or not they are available on the website Habbo Hotel.

What I want to do though, is add a counter at the bottom (a Label), which displays the number of accounts that have been tested. This is a really simple task but I can't for the life of me work out how to do it, as I haven't coded anything for a long time..

Here is my current code:

Code:

For Each fn As String In ListBox1.Items
            Try
                Dim myDatabuffer As Byte() = myWebClient.DownloadData("http://habbo.com/home/" & fn)
                Dim download As String = Encoding.ASCII.GetString(myDatabuffer)
            Catch Ex As Exception
                RichTextBox1.AppendText((Chr(10) & fn))
            End Try
        Next
        Label1.Text = "Done"

Thanks.