Visual Basic - Multiples conexiones con el Winsock

Investigando en la ayuda de Visual Basic 6 (empresarial y profesional), encontre este ejemplo
donse se usa el componente WinSock y que deberia aceptar multiconexiones,
pero al momento de compilar (F5) me aparece el siguiente error:
"Error de compilación, La declaración del procedimiento no coincide con la descripción
del evento o el procedimiento que tiene el mismo nombre"

Si alguien sabe como utilizar el WinSock con multiples conexiones, o al menos puede decirme lo que esta mal del codigo anterior les agradeceria.

Para múltiples conexiones debes de crear un arreglo (pool) de componentes Winsock, para eso hay que hacerlo en tiempo de ejecución si lo quieres dinámico o con limitaciones de sockets donde definirías digamos 10 componentes del tipo Winsock

"Error de compilación, La declaración del procedimiento no coincide con la descripción
del evento o el procedimiento que tiene el mismo nombre"

Como estas creando un server multi conexion en el diseño del server debes agregar un winsock1 y agregar un segundo winsock2 y copiar este ultimo y pegarlo asi te creara una matriz creada la matriz debes borrar el ultimo que se creo y compilar.