Private Sub TCPListener()
        Try
            server = Nothing
 
            ' Set the TcpListener on port 13000.
            Dim port As Int32 = 13000
            Dim localAddr As IPAddress = IPAddress.Parse("127.0.0.1")
 
            server = New TcpListener(localAddr, port)
 
            ' Start listening for client requests.
            server.Start()
 
            ' Status ausgeben
            txtStatus.Text = "Server gestartet"
        Catch e As SocketException
            txtStatus.Text = "SocketException: " & e.ToString
        End Try
    End Sub

Gru?

RollingStones