vb使用winsock控件，服务器怎么动态建立winsock控件数组

不需要 建立了一个winsock控件 然后设置index=0 可以用代码添加 以下是添加4个
For i = 1 To 4
Load winsock1(i)
next

自己改下就可以了
Private Sub Command1_Click()
Winsock1SendData txtSendText
End Sub
Private Sub Form_Load()
Dim my As String
Winsock1Protocol = sckUDPProtocol '设置为UDP协义
Winsock1LocalPort = 10 '随便设置，不过两个要一样
Winsock1RemotePort = 10
my = Winsock1LocalIP '取得自己的IP地址，是不要的
Winsock1RemoteHost = my '这里应该是设置为别人计算机的IP地址，由于自己是单机，所以就设置成自己的，自己给自己发信息
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '取得数据时发生
Dim Tmp As String
Winsock1GetData Tmp, vbString '取得数据
Tmp = "对方位址:" + Winsock1RemoteHostIP + "发言内容为-->" + Tmp
txtMessText = Tmp + Chr$(13) + Chr$(10) + txtMessText
End Sub

你新建一个项目后，点击菜单-视图，然后下面有个工具箱，点了之后工具箱就会出来
如果想加载其他的Activex控件，可以在工具箱上aa点击右键，选择添加选项卡，
然后在新的选项卡上点击右键，选择“选择项”这时候d出对话框，就可以选择你想要的控件了

---