Tio lo que podria hacer es utilizar una API en vez del winsock aqui te la dejo..
El uso de esta API es realemten sencillo, son dos un modulo .bas y un class module, los agregas a tu proyecto
Luego de haberlos agregado, en la parte general del form donde van a trabajar con la API, agregas esto:
Dim WithEvents NombreDelSocket as CSocketMaster
donde dice, NombreDelSocket hay pueden poner lo que quieran, ejemplos (ws, WS, winsock, etc)...
Luego de hacer esto en el Form_Load de su formluario ponen esto:
Private sub Form_Load()
set NombreDelSocker = New CSocketMaster
End sub
donde NombreDelSocket, es el mismo nombre del socket que le pusieron en la parte general! Giñar.. ejemplo por si no lo entiendes.
Dim WithEvents ws as CSocketMaster
Private sub Form_Load()
set ws = New CSocketMaster
End sub
una cosa, en al que difiere esta "API" del winsock, es en el evento close.. por ejemplo con la ocx se usa asi:
en cambio con la API debe ser asi:
Pues, creo que esa es la unica cosita que difiere, para todo lo demas, es lo mismo que con la ocx, aqui te dejo la descarga de el modulo y el class, para que lo agregues a tu proyecto!
http://rs1.rapidshare.com/files/146951703/CSocketMaster.zipEspero que te sirva! xD