#Region " Client "
    Public Sub subClient()
        Dim tcpclient As New TcpClient("localhost", 1738)
        Dim streamwriter As New System.IO.StreamWriter(tcpclient.GetStream)
        streamwriter.Write(variablen.send)
        streamwriter.Flush()
    End Sub
#End Region

Dim client As TcpClient
Public Const max_buffer As Integer = 255555
Dim buffer(max_buffer) As Byte
 
#Region " Listener "
    Public Sub subListener()
        Dim listener As New TcpListener(Net.IPAddress.Any, 1738)
        listener.Start()
        Do
            client = listener.AcceptTcpClient
            'MessageBox.Show("Client Verbunden")
            client.GetStream.BeginRead(buffer, 0, max_buffer, AddressOf _
              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.encoded = encoded
            'Callback
            client.GetStream.BeginRead(buffer, 0, max_buffer, AddressOf _
              msgwatcher, Nothing)
        Catch
        End Try
    End Sub
#End Region