写一段完整程序 VB.NET 创建TCP服务器监听端口，并回复请求

好，以下是 VB.NET 创建 TCP 服务器并监听端口，并回复请求的完整程序：

Imports System.Net
Imports System.Net.Sockets
Imports System.IO

Module Module1

    Sub Main()
        ' 创建 TcpListener 对象并开始监听端口
        Dim listener As New TcpListener(IPAddress.Any, 8080)
        listener.Start()
        Console.WriteLine("Server started.")

        ' 无限循环等待客户端连接
        While True
            ' 接受客户端连接请求并获取网络流对象
            Dim client As TcpClient = listener.AcceptTcpClient()
            Dim stream As NetworkStream = client.GetStream()

            ' 读取客户端发送的数据
            Dim reader As New StreamReader(stream)
            Dim requestData As String = reader.ReadLine()
            Console.WriteLine("Received request: " + requestData)

            ' 处理请求并生成响应
            Dim responseData As String = "Hello, " + requestData + "!"

            ' 发送响应给客户端
            Dim writer As New StreamWriter(stream)
            writer.WriteLine(responseData)
            writer.Flush()

            ' 关闭连接
            client.Close()
            Console.WriteLine("Connection closed.")
        End While

        ' 停止监听
        listener.Stop()
        Console.WriteLine("Server stopped.")
        Console.ReadLine()
    End Sub

End Module

该程序创建了一个 `TcpListener` 对象并开始监听端口 8080，无限循环等待客户端连接，并对每个连接请求进行处理，生成响应并发送给客户端，最后关闭连接。您可以根据自己的需求进行调整和扩展。