写了一个程序，是用GPRS向服务器传数据的，用的是VB中的Winsock控件，但是现在断开连接后发现GPRS模块仍然处于连接状态，这是为什么？代码如下
Private Sub Command1_Click()
Winsock1.Protocol = sckTCPProtocol
Winsock1.LocalPort = 8086
Winsock1.Listen
Me.Caption = "正在监听……"
End Sub
'点击“侦听端口”开始对通信端口进行监听
Private Sub Winsock1_Connectionrequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
Me.Caption = "连接成功！"
End Sub
'Winsock1_Connectionrequest事件——决定是否接受客户端发出的连接请求
Private Sub Command2_Click()
Winsock1.Close
Me.Caption = "连接已断开！"
End Sub
'断开Winsock控件的连接