Modulo mSock (LeandroAscierto) pasarlo a clase.

[illuminat3d]

Buenas, necesito hacer un array de sockets y tengo que pasar el modulo .bas de Leandro a clase.
Hay una función en el modulo, que inicia el socket.. pero usa AddresOf, que no se permite en un modulo bas.. mi problema es como sustituir el code de la funcion para que vaya igual de bien..

Código: (vb) [Seleccionar]

Public Function InitWinSock(ObjectHost As Object) As Boolean

    Dim StartupData As WSADataType
   
    Set Sockets = New Collection
    Set IPAddresses = New Collection
    Set PortOpen = New Collection
    Set PortSesion = New Collection
    Set PortConection = New Collection
   
    Set m_ObjectHost = ObjectHost
   
    If Not bIsInit Then
        If Not WSAStartup(&H101, StartupData) Then
            bIsInit = True
            hWin = CreateWindowEx(0&, "STATIC", "SOCKET_WINDOW", 0&, 0&, 0&, 0&, 0&, 0&, 0&, App.hInstance, ByVal 0&)
            PrevProc = SetWindowLong(hWin, GWL_WNDPROC, [b]AddressOf WindowProc[/b])
        Else
            bIsInit = False
        End If
    End If
   
    InitWinSock = bIsInit
   
End Function