Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
    NumSockets = NumSockets + 1
    Load Winsock1(NumSockets)
    Winsock1(NumSockets).Accept requestID
End Sub

Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
dim priem1..3 as string
winsosk1(?????).getdata priem1
winsosk1(????).getdata priem2
winsosk1(???).getdata priem3
'открыли сессию Пользователь2 и Пользователь3, прислали свои логины и пароли сюда,
'но как определить к какой сессии какой "ДатаАрривал-getdata" относится, что бы им отослать данные?
'Логин и пароль то к листу не проблема привязать, а вот в какую сесиию это отправлять?
End Sub

dim ind as integer

Private Sub Winsock1_ConnectionRequest(index As Integer, ByVal requestID As Long)  
    ind = ind + 1
    Load Winsock1(ind)
    Winsock1(ind).Accept requestID
End Sub

Private Sub Winsock1_DataArrival(index As Integer, ByVal bytesTotal As Long)   
Winsock1(ind).GetData
End Sub

Private Sub Winsock1_ConnectionRequest(index As Integer, ByVal requestID As Long)  
    Load Winsock1(index)
    Winsock1(index).Accept requestID
End Sub

Private Sub Winsock1_DataArrival(index As Integer, ByVal bytesTotal As Long)   
Winsock1(index).GetData
End Sub

For i = 0 To 60
If List1.List(i) = Text1 Then Text2 = i
Next i

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
.....
End Sub

Dim NumSockets As Integer
Dim priem(10000) As String

Private Sub Command1_Click()
Log_Pass.Clear
Open "autoriz.txt" For Input As #1
Do Until EOF(1)
Line Input #1, numuser
Log_Pass.AddItem (numuser)
Loop
Close #1
End Sub

Private Sub Form_Load()
Winsock1(0).Listen
End Sub


Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
    NumSockets = NumSockets + 1
    Load Winsock1(NumSockets)
    Winsock1(NumSockets).Accept requestID
End Sub


Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Winsock1(Index).GetData priem(Index)
For i = 0 To 10000
If Log_Pass.List(i) = priem(Index) Then usernum = i
Next i
End Sub

For i = 0 To 10000
If Log_Pass.List(i) = priem(Index) Then
    usernum = i
    Exit For
End If
Next i

Load Winsock1(NumSockets)

If NumSockets = 10 Then NumSockets = 0

NumSockets = NumSockets + 1
  
For s = 1 To NumSockets  
    If Winsock1(NumSockets) <> 7 Then
        Winsock1(NumSockets).Close
        Winsock1(NumSockets).Accept requestID
Exit For
    End If
Next i