Dim ncon  as Integer
  Load Server(Server.UBound +  1)
  i = 0
  Server(Server.UBound).Accept requestID
  nip = Server(Server.UBound)
  .RemoteHostIP
  incomIP(Server.UBound) =  nip
  If rOC =  1 Then
    For i =  1 To Server.UBound
      If Server(Server.UBound).RemoteHostIP =  incomIP(i) Then
        tip = Server(i)
        .RemoteHostIP
        tip = incomIP(i)
        ncon = ncon + 1
        If ncon >  1 Then
          incomIP(i) =  "Multiple login attempts"
          Server(Server.UBound).Close
          Return
        End If
      End If
    Next
  End If
  nip = Server(Server.UBound)
  .RemoteHostIP
  IPlist(Server.UBound) =  nip
  'frmConnections.lstIP.AddItem nip
  'lstIP.AddItem nip, listi
  'listi = listi + 1
  linus(0) =  ""
  Server(Server.UBound).SendData "Hello " +  Server(Index).RemoteHostIP +  " its a nice day out isnt it?" +  vbNewLine