Public Sub start()
        Try
            Dim localEP As New IPEndPoint(ipAdress, 1500)
            Dim del As ThreadStart = New ThreadStart(AddressOf wait)
 
            WarteThread = New Thread(del)
 
            'Falls Server schonmal aufgerufen wurde Fehler abfangen
            If server.IsBound = False Then
                server.Bind(localEP)
            End If
 
            'Server auf Listen schalten
            server.Listen(2)
           ipHostInfo.HostName.ToString)
 
 
            'Thread: Clientverbindung abwarten -> Start
            WarteThread.Start()
        (...)
        End Try
    End Sub

Private Sub wait()
        clientSocket = server.Accept()
        (...)
 
        'Neuen Client in Collection aufnehmen
        clients.Add(clientSocket)
    MainForm.writeListView(clientIP)
        'Thread: Clientnachrichten empfangen -> Start
        Dim objReceiver As New clsReceiver
        Dim del As ThreadStart = New ThreadStart(AddressOf objReceiver.receive)
        Dim EmpfangsThread As Thread = New Thread(del)
        objReceiver.client = clientSocket
        EmpfangsThread.Start()
 
        (...)
    End Sub