Заморозка основного потока после запуска TCPListener

Question

В настоящее время я создаю простое приложение для чата, которое использует TCP. Моя проблема в том, что когда я нажимаю на кнопку запуска TCP, окно зависает, и я ничего не могу сделать (и оно остается заблокированным, даже если я подключен к TCP-клиенту) Я попытался поместить TCP-сервер в другой поток, но как-то в этом случае он не работает, и я даже не могу подключиться к TCP-клиенту

Вот мой код

Sub TCPServerStart()
    TCPListenerz = New TcpListener(IPAddress.Any, 1000)
    TCPListenerz.Start()
    TCPServer = TCPListenerz.AcceptSocket
    Timer1.Start()
End Sub
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
    Dim adddress As IPAddress = CType(TCPServer.RemoteEndPoint, IPEndPoint).Address
    ConnectedTo.Text = adddress.ToString
End Sub
Private Sub TCP_connction_type_Click(sender As Object, e As EventArgs) Handles TCP_connction_type.Click
    TCPServerStart
End Sub
Sub TCPServcerSub()
    Dim sendbytes() As Byte = System.Text.Encoding.ASCII.GetBytes(TCPTextbox.Text)
    TCPServer.Send(sendbytes)
    ''   TCPServer.SendFile("")
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Dim rcvbytes(TCPServer.ReceiveBufferSize) As Byte
    TCPServer.Receive(rcvbytes)
    TextBox4.Text = System.Text.Encoding.ASCII.GetString(rcvbytes)
End Sub ''TCP Recive

Спасибо за любую помощь