[Vb.net]Form wird nit geladen

[Lord_Ben@]

tach ich habe folgendes prob und zwar würde ich gerne wissen warum hierbei meine form nit geladen wird...
wäre nett wenn ihr mir helfen könntet.

Imports System.Net.Sockets
Imports System.IO
Imports System.Net
Imports System.Threading
Public Class Form1
    Private server As TcpListener
    Private client As New TcpClient
    Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8000) ' eingestellt ist port 8000. dieser muss ggf. freigegeben sein!
    Private list As New List(Of Connection)
    Dim t As New Threading.Thread(AddressOf ListenToConnection)
    Dim c As New Connection

    Private Structure Connection
        Dim stream As NetworkStream
        Dim streamw As StreamWriter
        Dim streamr As StreamReader
        
    End Structure



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        server = New TcpListener(ipendpoint)
        server.Start()

        While True
            client = server.AcceptTcpClient


            c.stream = client.GetStream
            c.streamr = New StreamReader(c.stream)
            c.streamw = New StreamWriter(c.stream)


            list.Add(c)


            t.Start(c)


        End While
    End Sub

    Private Sub ListenToConnection(ByVal con As Connection)
        Do
            Try
                Dim tmp As String = con.streamr.ReadLine

                For Each c As Connection In list
                    Try

                        c.streamw.Flush()
                    Catch
                    End Try
                Next
            Catch
                list.Remove(con)

                Exit Do
            End Try
        Loop
    End Sub
End Class