Статистика пользователей: показывать, сколько пользователей работают сейчас в программе

Imports System.Net
 
Public Class Form1
    Dim adres, login, password, file_name As String
    Dim wc As New WebClient '
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        adres = "ftp://ftp.narod.ru/Test.txt" '
        login = "Логин"
        password = "Пароль"
    End Sub
    'load
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        wc.Credentials = New NetworkCredential(login, password)
        TextBox2.Text = wc.DownloadString(adres)
    End Sub
    'save
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ftp_adres As String = "ftp://" & login & ":" & password & "@" & "ftp.narod.ru/Test.txt"
        wc.UploadString(ftp_adres, TextBox2.Text & vbCrLf & TextBox1.Text) '
    End Sub
End Class