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