Help, Sockets

Im not really all that good with winsockets, etc. This was more of a copy and paste kind of thing. Well anyways I cant figure out exactly what is wrong with this part of my coding. Here is part that is having trouble:

Code:

---

Private Sub tmrCONN_Timer()
If WS.State <> 7 Then ' 7 = connected
WS.Close
WS.Listen
End If

End Sub

---

This is the returning error:
Run-time error '10044':
Socket Type not supported in this address family

Truly I dont know what this means. I have a slight idea that it has do something the mabye the winsock component, but not sure. Can anyone help me fix this?

You may not have an NIC/LAN Card.....

You're attempting to create one type of socket and then use it in another manner. The attached demo project (I lifted it somewhere myself) should help - I know it did me - you find the the "Address Family", "Socket Type" and "Protocol" combinations you need.

So, what exactly do I need in this project?

*cough*

2 things....

Please use the network forum for such questions (Moved now)

Secondly, can you post your app? I'll be able to fix it up. if you are new to qinsock and wish to learn from the begining see the link in my sig (Basic chat application)

Pino

Well the whole applocation was just a test project, learning some of the stuff usin Winsock. The file attached is the whole program, you can look at it and see what might be the problem, because I have no idea. Ill look into the info on your sig though.

A little pointer, you need to include the form files and modules with your attachment, otherwise there's really no project.

Sorry about that put the wrong file. *Edited* Includes everything needed to view the project.