VB winsock 动态加载和卸载问题

Option Explicit
Private MaxIndex As Integer

Private Sub Form_Load()
MaxIndex = 0
Winsock(0).Listen
End Sub

Private Sub Winsock_Close(Index As Integer)
Winsock(Index).Close
Unload Winsock(Index)
End Sub

Private Sub Winsock_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
    MaxIndex = MaxIndex + 1
    Load Winsock(MaxIndex)
    Winsock(MaxIndex).Accept requestID
End If
End Sub

Private Sub Winsock_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim strMsg As String
Winsock(Index).GetData strMsg
MsgBox Index & MaxIndex
End Sub


这段代码能动态加载winsock控件，为什么不能动态卸载啊
msgbox 的值永远是+1的，高手帮忙改下啊

当加载的winsock close的时候就卸载这个加载的winsock

---

WinSock 控件发生 Close 事件后，属性 State = sckClosed
以后侦听到新的连接请求后可以重用该控件，也可以开一个定时器定期卸载状态为关闭的控件。
MaxIndex 毫无意义，直接用 Winsock.UBound 就能取得。

---

看来楼主是犯了这样一个典型的错误:
试图在类实例的事件中释放这个类实例本身.
我的意思是,恐怕没有一种语言在开发时,允许做这种事吧.

---

引用

并非在Winsock_Close事件中不能卸载它自己.

以前记得是遇到过这问题的,不过没有细究是哪里的具体问题,就用定时