winsock 多个客户端连接服务器

关于VB winsock控件.
我希望自定义客户端数,然后同时发送消息给服务器, 两边都用的winsock控件数组.
部分代码如下:
For i = 1 To intMax
    DoEvents
    Sleep 60    '测试sleep 40ms只能装载40个左右的控件,50个可以加载更多
    Load tcpClients(i)
    tcpClients(i).RemoteHost = "192.168.0.24"
    tcpClients(i).RemotePort = 1111
    tcpClients(i).Connect
    StatusBar1.SimpleText = i + 1 & " 连接上服务器..." & tcpClients(i - 1).State
Next
如果用sleep延时的话,1000个都没问题.可上司说:用延时干嘛? 
我想问下大家,这里到底该怎么做?