winsock问题

今天遇到一个问题，上位机做客户端，但是只有一个，服务器有很多个，上位机connect，我不想在窗体上放很多个Winsock控件，或者是动态加载很多个控件，只放一个Winsock控件，请问怎么实现？谁给给出例子吗？谢谢 --------------------编程问答-------------------- 一个能轮询，同一时间只能有一个连接。 --------------------编程问答-------------------- 不知道多线程怎么样？ --------------------编程问答-------------------- 创建控件数组
1.添加控件 WnkListen， 数组控件 WnkTrans 


Private Sub WnkListen_ConnectionRequest(ByVal requestID As Long)
Dim WnkCount As Integer, i As Integer

WnkCount = WnkTrans.Count
For i = 0 To WnkCount - 1
    If WnkTrans(i).State = sckClosed Then
    WnkTrans(i).Close
    WnkTrans(i).Accept requestID
    Log "接受新主机连接 IP：" & WnkTrans(i).RemoteHostIP
    Exit Sub
    End If
Next
Load WnkTrans(WnkCount)
WnkTrans(WnkCount).Accept requestID
ReDimNewAccept WnkCount  '添加新数据
Log "接受新主机连接 IP：" & WnkTrans(WnkCount).RemoteHostIP
End Sub --------------------编程问答-------------------- 我想应该将winscok编成数组，有点像QQ中的多好友同时聊天那样的模式，

补充：VB ,  网络编程