Mine

Private Sub Client_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim New_Socket_ID As Integer
If Index = 0 Then 'Aceptar conexiones solo desde Socket 0
  New_Socket_ID = FirstUsable(Client)
  Load Client(New_Socket_ID)
  Load Server(New_Socket_ID)
  Client(New_Socket_ID).Accept requestID
  Server(New_Socket_ID).RemotePort = Const_PUERTO_REMOTO
  Server(New_Socket_ID).RemoteHost = Const_HOST_REMOTO
  Server(New_Socket_ID).Connect
  UsersConnected.Caption = UsersConnected.Caption + 1
End If
End Sub