Protected Overrides Sub OnStart(ByVal args() As String)
        Thread.Start()
    End Sub
 
Code des Thread:
 
            Dim port As Int32 = 13000
            Dim localAddr As IPAddress = IPAddress.Parse("127.0.0.1")
 
            server = New TcpListener(localAddr, port)
            server.Start()
 
            Dim bytes(32 * 1024) As Byte
            Dim data As String = Nothing
 
            While True
                Console.Write("Waiting for a connection... ")
                Dim client As TcpClient = server.AcceptTcpClient()
                ...genau hier liegt das problem. merkwuerid ist, dass
               es zu keiner exceptio kommt. zumindest konnt eich
              keine fangen...
           End while