vb中利用winsock控件，tcp协议实现多服务端连接

关于vb中利用winsock控件，tcp协议实现多服务端连接的问题，网上的资料很多， 
但是都是复制来复制去，来来去去就那一两个例子，而且大都无法运行，方法不够简洁，给初学者带来一定的难度。 
我也是刚接触vb不久的初学者，结合msdn对多连接的介绍， 
于是就有了下面的例子（目 前最短的最好理解的，不信可以去Google比较一下） 

原创by：Login 欢迎到小站www.host900.com进行讨论。完成于2010-1-18

客户端 （接受多个连接） 

有不懂得可以加我QQ：672308444，我会详细解释。另外欢迎到小站www.mycrazy.ucoz.com进行讨论。

只有两个winsock控件，一个名为listener作为监听；另一个为listen(index属性设为0)控件数组，用来就受新的连接 

（当有服务端连接时，会显示为新连接分配的listen控件数组的下标，下标从零开始） 

（当有服务端发送数据时，会在窗体上显示发送数据的服务端被分配的listen控件数组的下标，下标从零开始）

客户端代码： 

Dim upi As Integer '存放空闲listen控件的数组的下标，，[声明部分变量]

Public Sub findfreeandloadsck() '查找空闲的listen数组中空闲的控件并加载 

'现在当前数组