I have read your project, and it sounds perfect for me! I run www.WinsockVB.com and have lots of experience with the Winsock API under VB. I have a class replacement already written, which implements a TCP/IP socket (no UDP support). It is tested, and works reliably. Using the WSAEventSelect I/O model, it complements the Windows message based architecture, and integrates seamlessly. It is one class module, and one general module. You can create as many instances of the class module as you like, and it will work properly. The interface is described below:

Events
  OnConnectionRequest(ByVal RequestID As Long)
  OnConnect()
  OnClose()
  OnDataArrival(ByVal BytesTotal As Long)
  OnError(ByVal lNumber As Long, ByVal sDescription As String)

Methods
  Listen()
  Accept(ByVal RequestID As Long)
  Connect(Optional ByVal strHost As String, Optional ByVal lngPort As Long)
  CloseSocket()
  GetData(Optional ByVal lngLength As Long) As String
  SendData(ByRef strData As String)

Properties
  SocketHandle
  LocalIp
  LocalHost
  LocalPort
  RemoteIp
  RemoteHost
  RemotePort
  BytesSent
  BytesReceived
  State

I can give you the project as it is for $99. If you'd like me to code in support for UDP as well, I can do that, but the price will go up. Alternatively, if you'd like me to wrap the code up into a UserControl you can use in your projects, I can do that too, for a bit extra. The bid at the moment is for the class module and BAS support module.

All my code is VB6 , well written, commented and properly laid out with international standard naming conventions (Hungarian). If you have any questions, please ask, and if you have a moment to review my history you'll see I really do deliver what I promise.

Thanks for reading,
Will