ciao a tutti.
Qual' è il modo migliore per far sì che un server accetti più connessioni, al momento il server è così composto

codice:
Private Sub Command1_Click()
Timer1.Interval = 500
Winsock1.LocalPort = Text2.Text
Winsock1.Listen
List2.AddItem "Il server è Online..."
End Sub

Private Sub Command2_Click()
Winsock1.Close
List2.AddItem "Il Server è chiuso.."
End Sub

Private Sub Command3_Click()
Winsock1.SendData Text1.Text
List2.AddItem List2.Text & Text1.Text
End Sub


Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
 If Winsock1.State <> sckClosed Then Winsock1.Close
 Winsock1.Accept requestID
 
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim Password As String
Password = Text3.Text
Static Autenticato As Boolean
Dim Dati As String
Winsock1.GetData Dati, vbString
DoEvents
List2.AddItem List2.Text & "remoto> " & Dati '& vbCrLf  ' Aggiunge il Testo

If Autenticato = False Then
  If Dati = Password Then
    Autenticato = True
    List1.AddItem Winsock1.RemoteHostIP
    List2.AddItem "Welcome.."
    Winsock1.SendData "Welcome " & Winsock1.RemoteHostIP
  Else
    Winsock1.Close
  End If
  
End If

End Sub