Visual Basic 6 - DLL Winsock

ciao ragazzi avrei bisogno del vostro aiuto...

devo interagire in vb.net con una dll scritta in vb6 questo perche devo necessariamente usare le winsock al posto della classe socket del vb.net in quanto lenta e dispendiosa.

Public WithEvents sock As Winsock
Public port As Integer

Public Sub apriporta()
Set sock = New Winsock
sock.LocalPort = port
sock.Listen
End Sub

Private Sub sock_ConnectionRequest(ByVal requestID As Long)
sock.Close
sock.Accept (requestID)
End Sub

Public Sub send(ByVal data As String)
sock.SendData (data)
End Sub

Private Sub sock_DataArrival(ByVal bytesTotal As Long)

End Sub

queste so le procedure della dll
adesso usando vb.net richiamo la dll

Dim SW as New SocketDLL.Class1
SW.port=port
SW.apriporta
array.add(SW)

questo è quanto.... il problema è che la dll non si mette in ascolto proprio per nulla...come devo fare?

Secondo me questo problema riguarda più vb.net quindi prova a chiedere nella sezione .net ...

perche non provi a fare

Public Sub apriporta(port as integer)
Set sock = New Winsock
sock.LocalPort = port
sock.Listen
End Sub



...
sw.apriporta(...)