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设备的连接代码