Public Class Server
 
    Private Clients As New Collection(Of TcpClient)
    Private ClientCount As Integer = 10
    Private Listener As TcpListener
 
    Private ThreadSend As Thread
    Private ThreadHandshake As Thread
 
    Public Sub InitClass()
        Listener = New TcpListener(IPAddress.Parse("127.0.0.1"), 8000)
        Listener.Start()
 
        ThreadHandshake = New Thread(AddressOf Thread_ListenForRequests)
        ThreadHandshake.Start()
    End Sub
 
    Private Sub Thread_ListenForRequests()
        While True
            If Listener.Pending Then
                If Clients.Count < ClientCount + 1 Then
                    Clients.Add(Listener.AcceptTcpClient())
                End If
            End If
        End While
    End Sub
 
    Public Sub SendBroadcast()
        ThreadSend = New Thread(AddressOf Thread_SendBroadcast)
        ThreadSend.Start()
    End Sub
 
    Private Sub Thread_SendBroadcast()
        Dim DataBuffer As Byte()
        Dim Stream As NetworkStream
 
        For Each CurrentClient As TcpClient In Clients
            If CurrentClient.Connected Then
                Stream = CurrentClient.GetStream
                DataBuffer = System.Text.Encoding.ASCII.GetBytes("welcome")
                Stream.Write(DataBuffer, 0, DataBuffer.Length)
            Else
                'remove from collection
            End If
        Next
    End Sub
 
End Class

Public Class Client
 
    Public Event DataReceived(ByVal Data As Byte())
 
    Private Client As TcpClient
    Private Stream As NetworkStream
 
    Private ThreadReceive As Thread
 
    Public Sub InitClass()
        Client = New TcpClient("localhost", 8000)
        Stream = Client.GetStream()
 
        ThreadReceive = New Thread(AddressOf Thread_ReceiveData)
        ThreadReceive.Start()
    End Sub
 
    Private Sub Thread_ReceiveData()
        Dim buffer(Client.ReceiveBufferSize) As Byte
 
        While Client.Connected
            If Stream.DataAvailable Then
                Stream.Read(buffer, 0, CInt(Client.ReceiveBufferSize))
                RaiseEvent DataReceived(buffer)
            End If
        End While
    End Sub
 
End Class