Private Sub sckServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
sRequestID = requestID
iSockets = iSockets + 1
Load sckServer(iSockets)
sckServer(iSockets).Accept requestID
End If
End Sub

Private Sub sckServer_Close(Index As Integer)
On Error Resume Next
imgPC(Index).Picture = imgDC
cmdPC(Index).ToolTipText = "Disconnected"
iSockets = iSockets - 1
Unload sckServer(Index)
End Sub

no problem on incoming connections
tha only problem is that:
1. cilent2 connects the index is 1
2. cilent1 connects the index is 2
how can i tell to the PC that even client2 1st connect the index is 2?

tnx