winsock数组的问题,多用户连接同一服务器?

Question

Private connmax As Long
Private Sub Form_Load()
Dim i As Integerconnmax = 200
Dim tcpserver() As Winsock
tcpserver(0).LocalPort = 33333
tcpserver(0).Listen
For i = 1 To connmax
    Load tcpserver(i)
Next编译的时候说Dim tcpserver() As Winsock这行错，说是实时错误9，下标越界我希望动态增加winsock，也就是实现多个用户连接同一个服务器，
初学winsock，很多问题都需要大家的帮助，再次谢谢大家

Answer 1

应该不是Dim tcpserver() As Winsock出错
而是你没有redim tcpserver(数值)

Answer 2

不要声明Dim tcpserver() As Winsock，在窗口中加一个名为tcpserver的socket控件，设置index=0就可以了。

Answer 3

问一个弱弱的问题，如何添加socket控件啊？不好意思，我初学，谢谢大家啊

Answer 4

如何添加socket控件啊？不好意思，我初学，谢谢大家啊
和添加其它控件数组相同，在工具箱中加入一了个winsocket控件后，在该控件上点右键-->复制，然后在窗体上点粘贴，提示是否建控件数组，点“是”即可。

Answer 5

form上加了index=0的不需要在dim 了。
直接load就行。