建立一个工程Server

用记事本打开 Server.vbp ，代码是：

用记事本打开 Server.frm ，代码是：

另外再建立一个工程Client

用记事本打开 Client.vbp ，代码是：

用记事本打开 Client.frm ，代码是：

当Server开启后，Client0,、Client1、Client2 连接Server成为Sock(0)、Sock(1)、Sock(2)，

就算Client1退出，再连接，还是Sock(1)，因为会自动从0开始检查空闲的编号。