主题：[求助]求一个TCP Socket 端口监听示例。

亲们，有没有关于TCP Socket 端口监听的狐表示例。给小弟分享一下。谢谢各位了。

监听9000端口，将收到的数据存在文本文件里面。

while true能不能写在狐表里？

Dim ip As String = Tables("IP")(0,0)
Dim duankou As String = Tables("IP")(0,1)
Dim Sserver As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)
Dim LocalEndPoint As New System.Net.IPEndPoint(System.Net.IPAddress.Parse(ip), duankou)
Sserver.Bind(localEndPoint)
Sserver.Listen(100)
Dim newsocket As System.Net.Sockets.Socket = Sserver.Accept()
Dim bytes(1024) As Byte
Dim data As String = String.Empty
Dim bytesRec As Integer = newsocket.Receive(bytes)
newsocket.Close()
data = Encoding.default.GetString(bytes, 0, bytesRec)
Forms("窗口1").Controls("TextBox4").text = data

这个是监听一次的代码，我怎么实现多线程持续监听？用了While true之后老死机。newthread怎么用啊~？

还没研究明白，我没装VS，看不了DLL的东西。谁能给提示个狐表里面直接用的代码？