VB ActiveX EXE 问题，不太难

[solomon]

服务器程序如下：
private sub class_Initialize
gcnt = gcnt + 1
end sub
private sub class_Terminate
gcnt = gcnt - 1
end sub
客户端 CreateObject 可以执行 class_Initialize
客户端退出时可以执行 class_Terminate
但是, 服务器程序改成如下后 客户端退出时不执行 class_Terminate
(gcnt, col 全局变量)
dim key as string
private sub class_Initialize
gcnt = gcnt + 1
key = randomkey()
gcol.add me, key
end sub

private sub class_Terminate
gcnt = gcnt - 1
gcol.remove key
end sub

[jacklondon]

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

[jacklondon]

写错了。
public sub RemoveClient
if gcnt =0 then gcol.remove key
end sub

[solomon]

我希望客户端除了创建OBJECT， 其它都不要做， 如果客户端写程序的
人忘了些 REMOVECLIENT，不就有问题了？