Private Sub BGW1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BGW1.DoWork
        Try
            myClient = New TcpClient("localhost", 5000)
            BGW1.ReportProgress(100)
        Catch ex As SocketException
            e.Result = "offline"
        End Try
    End Sub

    Private Sub DoListen()
        Try
            Listener = New TcpListener(Dns.GetHostEntry("localhost").AddressList(0), 5000)
            Listener.Start()
 
            Do
                Dim connectedClients As New clientClass(Listener.AcceptTcpClient)
                AddHandler connectedClients.Disconnected, AddressOf connectedClients_Disconnected
                AddHandler connectedClients.LineReceived, AddressOf connectedClients_LineReceived
                Clients.Add(connectedClients.ID, connectedClients)
            Loop Until False
 
        Catch
        End Try
    End Sub