帮忙，给分

Question

添加Winsock控件 设它的Index属性为0
dim i as integer
dim max as integer
max=10
i=
for i to max
Winsock1(0).Listen
Winsock1(0).LocalPort = 1010
Winsock1(0).Protocol = sckTCPProtocol
.....设置它的属性
next

Answer 1

添加Winsock控件 设它的Index属性为0
     
    For i = 0 To Winsock.UBound
        If Winsock(i).State = 0 Then
            Exit Function
        End If
    Next i
    Load Winsock(Winsock.UBound + 1)
重新load 的Winsock控件继承Winsock（0）的设置。所以想使用的话只要重新设定端口。