嵌套OCX的问题，VB6

OCX套了个自己做的OCX，结果呢，调用这个嵌套运行正常，但是退出程序时，警告：内存不能为written，这让我很困惑。于是反复检查，没有发现什么我知道的问题。于是，极简化之，做一个insideOcx, 一个outSideOcx调用之，然后在HTA里面调用outsideOcxinsideOcx里面放一个 Winsock控件，一个timer控件，代码如下：Public ServerIP As String
Public ServerPort As IntegerPrivate Sub UserControl_Initialize()
    '
End SubPublic Sub ConnectServer()
    Winsock1.RemoteHost = ServerIP
    Winsock1.RemotePort = ServerPort
    Winsock1.Connect    
End SuboutsideOcx就是调用之，代码如下：Public Property Let ServerIP(ByVal sIP As String)
    NestInside1.ServerIP = sIP
End PropertyPublic Property Let ServerPort(ByVal iPort As Integer)
    NestInside1.ServerPort = iPort
End Property
Public Sub Con()
    NestInside1.ConnectServer
End SubHTA嘛，就是html后缀改成hta，object写outsideOcx的classid, 不需要写什么代码。打开HTA，关闭之，就会出现内存不能written警告。