Imports MSCommLib
 
Public Class Form1
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Timer1.Start()
 
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        'Zuhörer startet
        Listener.Start()
 
 
        If Listener.Pending = True And Host.Connected = False Then
            Host = Listener.AcceptTcpClient()
            Networkstream1 = Host.GetStream
        End If
 
 
        If Host.Client.Available > 0 Then
            txt_Barcode.Text = ""
            Dim Buffer(Host.Client.Available) As Byte
            Networkstream1.Read(Buffer, 0, Host.Client.Available)
 
            For Each item As Byte In Buffer
                txt_Barcode.Text &= Microsoft.VisualBasic.Chr(item)
 
            Next
        End If
 
 
    End Sub

    Public Listener As New System.Net.Sockets.TcpListener(xxxx)
    Public Host As New System.Net.Sockets.TcpClient()
    Public Networkstream1 As System.Net.Sockets.NetworkStream