Sub NewUserConnected (curUser) Dim userIP Dim c Dim ip Dim iredir iredir = True 'Redirect or disconnect? (True = redirect) c=0 ip = curUser.IP() For each userIP in colUsers If userIP.IP()=ip then frmHub.DoEventsForMe c=c+1 End If Next If c>1 then For each userOP in colUsers If userOP.bOperator then userOP.PrivateMessage cstr("OP-Security"),vbCrLf+"Name = " & curUser.sName & " IP = " & ip & ""+vbCrLf+"Closed for logging in hub more than once."+vbCrLf+"At " & Time() & "" frmHub.DoEventsForMe curUser.PrivateMessage cstr("Hub-Security"),"You are only permitted to log in once to this hub" frmHub.DoEventsForMe If iredir = True Then curUser.ForceMove frmHub.txtRedirect Else curUser.Disconnect() End If End If Next End If End Sub