Dim server As TcpListener
            server = Nothing
            Try
 
                Dim port As Int32 = 13000
                Dim localAddr As IPAddress = IPAddress.Parse("192.168.150.47")
 
                server = New TcpListener(localAddr, port)
 
 
                server.Start()
 
                ' Buffer zum lesen der Daten
                Dim bytes(1024) As Byte
                Dim data As String = Nothing
 
 
                While True
                    MsgBox("Waiting for a connection... ")
                    ' hier friert das Formular ein
                    Dim client As TcpClient = server.AcceptTcpClient()
                    ' wenn eine Verbindung besteht ist das Formular wieder 
                    ' ansprechbar 
 
                    MsgBox("Connected!")