Dim i As Long
 
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As _
  Long)
    If Index = 0 Then
        i = i + 1
        Load Winsock1(i)
        Winsock1(i).Accept requestID
    End If
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1