AcceptSocket有有关问题

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 扑获一下异常 看看是什么问题
[解决办法]
AcceptSocket 阻塞在那里监听，等待连接，没有连接自然不会返回，至于为什么没有客户端连接，你后面也说了，你是用GPRS传过来的，都开始传数据了，那连接不是早就应该建立了吗？

[解决办法]
检查一下你GPRS设备的设置，以及检查一下使用GPRS设备的连接代码