' Server-Log -> Speichert alle Log-Meldungen und wirft gleichzeitig ein Event
    Public Event NewLog(ByVal message As String)
    Public ServerLog As String
    Public Sub Loging(ByVal message As String)
        ServerLog &= message & vbCrLf
        RaiseEvent NewLog(message)
    End Sub

    Public Event Startet()
    Public Event Ready()
    Public Event StoppAble()
    Public Sub Start(ByVal port As Integer)
        Loging("Starte Server an Port " & port.ToString)
        Loging("  - Belege Portnummer")
        ServerPort = port
        Loging("  - Erstelle Endpunkt")
        Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, ServerPort)
        Loging("  - Erstelle TCP-Reservierung")
        ServerCon = New TcpListener(ipendpoint)
        Loging("  - Starte TCP-Verbindungsüberwachung")
        ServerCon.Start()
        ServerIsOn = True
        RaiseEvent Startet()
        Loging("Server wurde gestartet. Erstelle Clientverwaltung..")
        Loging("  - Bereite Verbindungsmanagement vor")
        MainThread = New Threading.Thread(AddressOf ConnectionManager)
        Loging("  - Setze Server in Bereitschaftsmodus")
        ServerIsOn = True
        RaiseEvent Ready()
        RaiseEvent StoppAble()
        Loging("Server ist nun bereit für eingehende Client-Verbindungen.")
    End Sub

    Public Event ClientConnecting()
    Public Event ClientConnected(ByVal uInf As userInfo)
    Private Sub ConnectionManager()
        While ServerIsOn ' wir warten auf eine neue verbindung...
            ClientCon = ServerCon.AcceptTcpClient
            If ServerIsOn = False Then Exit Sub
            RaiseEvent ClientConnecting()
            Loging("Ein neuer Client verbindet..")
 
            Dim ui As New userInfo ' und erstellen für die neue verbindung eine 
            ' neue connection...
            ui.stream = ClientCon.GetStream
            ui.streamr = New StreamReader(ui.stream)
            ui.streamw = New StreamWriter(ui.stream)
            ui.Nickname = ui.streamr.ReadLine ' Nickname
            AddUser(ui) ' und fügen sie der liste der clients hinzu.
            RaiseEvent ClientConnected(ui)
            Loging(ui.Nickname.ToString & " ist dem Server beigetreten.")
 
            ' Hier wird ein weiterer Thread zur Überwachung der eingehenden 
            ' Daten erstellt..
            ' Auch dort besteht das Log-Problem!
            Dim clientConThread As New Threading.Thread(AddressOf _
              ClientConManager)
            ClientConThreadList.Add(clientConThread)
            clientConThread.Start(ui)
        End While
    End Sub

Wer nicht schaut ist selbst schuld: http://www.dejavu-design.eu