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