Shoutbox

Try this:
On ConnectionRequest event:

code:

---

Dim i As Integer
For i = 0 to List1.Listcount -1 'loop in each listbox's items
If List1.List(i) = Winsock1.RemoteIP Then
Winsock1.Close
Winsock1.Listen
Exit Sub
End if
Next i
Winsock1.Close
Winsock1.Accept requestID

---

I believe that this should work.
Of course you need to change list1 and winsock1 to the right names