高手快来帮帮我啊~

Question

服务端代码如下
Private Sub Command1_Click()
Winsock1.Listen
End SubPrivate Sub Form_Load()
Winsock1.LocalPort = 2000
End SubPrivate Sub Timer1_Timer()
Label1.Caption = Winsock1.State
End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Accept requestID
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim sData As String
Text1.Text = sDataEnd Sub为什么客户端一连接 就显示 实时错误 当前状态的操作无效
就定位到
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Accept requestID
End Sub
这段上了 为什么啊 有什么错误吗？

Answer 1

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.close
Winsock1.Accept requestID
End Sub