Error using Winsock OCX

[msdnexpert]

Hi all,
The following code snippet that I am using in an ActiveX DLL gives me an error and I can't figure out why.

Private WithEvents MySock as Winsock

Private Sub Class_Initialize()
'I get an error message i.e. Error in data type
Set MySock = CreateObject("MSWinsock.Winsock")
End Sub

Private Sub Class_Terminate()
Set MySock = Nothing
End Sub

[Wolfie]

hi msdnexpert, try this.

Private WithEvents MySock as Winsock

Private Sub Class_Initialize()
'I get an error message i.e. Error in data type
Set MySock = new Winsock
End Sub

Private Sub Class_Terminate()
Set MySock = Nothing
End Sub

[msdnexpert]

Hi Wolfie,
Your code also gives me an error. i.e. Invalid use of new keyword. Any other suggestions.

[Wolfie]

Hi, msdnexpert

Did you add a reference to the mswinsock.ocx?

[msdnexpert]

Hi Wolfie,
Yes I did add a reference to winsock.ocx. Any suggestions.

[Wolfie]

msdnexpert,
Let's try this step by step. If this does not work, then I'm out of ideas.

Open a new project, choose activex dll.
Click on project, references, Browse and select the mswinsck.ocx.
In your declarations section type the following:
Private WithEvents mySock As MSWinsockLib.Winsock
In your class initialize event type the following :
Set mySock = New MSWinsockLib.Winsock

This works on my machine.
Warning: Do not add the control to your components.

Hope it works
Wolfie