Dim tcpclient As New TcpClient("localhost", 1337)
        Dim streamwriter As New System.IO.StreamWriter(TcpClient.GetStream)
        streamwriter.Write(Variablen.todo)
        streamwriter.Flush()

  Public Sub subListener()
        Dim listener As New TcpListener(Net.IPAddress.Any, 1338)
        listener.Start()
        Do
            client = listener.AcceptTcpClient
            'MessageBox.Show("Client Verbunden")
            client.GetStream.BeginRead(buffer, 0, max_buffer, AddressOf _
              CnL.msgwatcher, Nothing)
        Loop While True
    End Sub
 
    Public Sub msgwatcher(ByVal ar As IAsyncResult)
        Dim bytesread As Integer
        Try
            bytesread = client.GetStream.EndRead(ar)
 
            Dim encoded = Encoding.ASCII.GetString(buffer, 0, bytesread - 1)
            Variablen.doit = encoded
            Doit.subDoit()
            'Callback
            client.GetStream.BeginRead(buffer, 0, max_buffer, AddressOf _
              msgwatcher, Nothing)
        Catch
        End Try
    End Sub

    Public Const max_buffer As Integer = 250
    Dim buffer(max_buffer) As Byte
    Dim client As TcpClient