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?