stupid winsock problem

[Clunietp]

Hi Fish

to display the winsock error, handle the Error event:

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, _
    ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, _
    ByVal HelpContext As Long, CancelDisplay As Boolean)

    MsgBox Description
End Sub

That can help you track down your error.

The Winsock control was also updated in Service Pack 4, so you might want to apply that as well.