Code:
Label1.Text = Val(Label1.Text) + "1"
Dim wcl As New Net.WebClient
RichTextBox1.Text = (wcl.DownloadString("http://www.simple-multiplayer.de/users/alle.txt"))
Dim reader As New IO.StreamReader(RichTextBox1.Text, True)
Dim src As String = reader.ReadToEnd
reader.Close()
Dim s() As String = Split(src, vbNewLine)
ListBox1.Items.Add(s(Label1.Text))






