如何动态加载Socket控件

[sstg9]

本人要做一个服务器但是要用到很多个SOCKET控件
总不能一个一个的画上去吧。。。
所以想用动态的加载请给我一个示例谢谢！
教我如何加载

[tztz520]

首先在窗体上画一个SOCKET控件,然后将它的index属性设为0

'如下代码就是动态增加了:
load winSOCKET1(1)'增加一个
load winSOCKET1(2)'增加第二个

[aiur2000]

部件加载winsock
Dim i As Winsock
然后就可以用i来操作了

[Mars.CN]

load winsock2(winsock2.count)’添加一个控键

tztz520(午夜逛街)错了
load winSOCKET1(1)'增加第二个，第一个是winSOCKET1(0)
load winSOCKET1(2)’增加第三个


在做聊天室吧，我已经做N个了
要源吗？
发E-mail给我：[e-mail]

[alee201]

动态加载的 winsock 怎么处理 winsock_Connect() winsock_DataArrival()
这些事件呢？