Private Sub sckServer_ConnectionRequest(Index As Integer, ByVal