[VB.NET]AcceptSocket有问题？

<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
AcceptSocket有问题？
Me.listener = New TcpListener(port)
Me.listener.Start()
Dim socket As Socket = Me.listener.AcceptSocket
Me.clientsocket = socket
Me.clientservice = New Thread(New ThreadStart(AddressOf Me.ServiceClient))
Me.clientservice.IsBackground = True
Me.clientservice.Start()
‘ MsgBox( ...yes , MsgBoxStyle.OkOnly)

为何来到AcceptSocket后，下面的语句就没动作了似的。。什么也不执行的？
__________________________________________________________________________
lz 用try catch 扑获一下异常 看看是什么问题
__________________________________________________________________________
没有异常，我try过的。就是来到这就不执行下面的了，可能是只有监听，没有客户端连接。。
可是我的是用GPRS传过来的数据，怎么就没胡客户端连接呢？？
__________________________________________________________________________
AcceptSocket 阻塞在那里监听，等待连接，没有连接自然不会返回，至于为什么没有客户端连接，你后面也说了，你是用GPRS传过来的，都开始传数据了，那连接不是早就应该建立了吗？
__________________________________________________________________________
请问有解决的方法么？
__________________________________________________________________________
检查一下你GPRS设备的设置，以及检查一下使用GPRS设备的连接代码
__________________________________________________________________________
一切都是正常的．就是不知道为何会这样．．我被卡在这了．．汗．
__________________________________________________________________________
对的是正常的，因为没有数据传送到这个端口，如果有的话就会继续执行下面的程序
__________________________________________________________________________
AcceptSocket 是一个阻塞方法，它返回可用来发送和接收数据的 Socket。如果希望避免阻塞，您可以使用 Pending 方法来确定传入连接队列中是否有连接请求。

返回的 Socket 是使用远程主机的 IP 地址和端口号初始化的。您可以使用 Socket 类中任何可用的 Send 和 Receive 方法与远程主机进行通信。使用 Socket 后，请确保调用其 Close 方法。如果应用程序相对简单，请考虑使用 AcceptTcpClient 方法代替 AcceptSocket 方法。TcpClient 提供了一些通过网络在阻塞同步模式下发送和接收数据的简单方法。

示例
__________________________________________________________________________