Как сделать многопоточный сервер в vb.net

Question

У меня есть проект по созданию многопоточного сервера с использованием vb.net, но в последнее время я знаю только для подключения одного клиента. какой синтаксис я должен добавить к своему коду, чтобы превратить в многопоточное соединение

Я знаю только для подключения одного клиента, но мой проект должен подключиться через 3 клиента

Imports System.Net
Imports System.Net.Sockets

Public Class Form1
    Dim TCPServer As Socket
    Dim TCPListener As TcpListener
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        TCPListener = New TcpListener(IPAddress.Any, 1000)
        TCPListener.Start()
        TCPServer = TCPListener.AcceptSocket()
        TCPServer.Blocking = False
        Timer1.Enabled = True
    End Sub

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    Try
        Dim rcvbytes(TCPServer.ReceiveBufferSize) As Byte
        TCPServer.Receive(rcvbytes)
        TextBox2.Text = System.Text.Encoding.ASCII.GetString(rcvbytes)
    Catch ex As Exception

    End Try
End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    Dim sendbytes() As Byte = System.Text.Encoding.ASCII.GetBytes(TextBox1.Text)
    TCPServer.Send(sendbytes)
End Sub

Конечный класс

Я рассчитываю подключиться через 3 клиента, но я могу установить соединение только с одним клиентом