在class_Terminate执行前,对应客户端的服务器一个实例保存在gcol中,由于VB采用引用记数,所以不会执行class_Terminate。
解决方法:
在服务器程序加一个方法,
public sub RemoveClient
 gcol.remove key
end sub
客户端退出之前执行RemoveClient就可以了。