Article ID: 173619
Article Last Modified on 4/28/2000
Winsock1.LocalPort = 0 Winsock1.Connect
Option Explicit
Private Sub Form_Load()
Dim res As Long
Winsock1.LocalPort = 2500
Winsock1.RemoteHost = "myserver"
Winsock1.RemotePort = 7
Winsock1.Connect
End Sub
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, vbOKOnly, "Winsock Error: " & Number
CancelDisplay = True
End Sub
Winsock1.LocalPort = 2500to:
Winsock1.LocalPort = 0and perform steps 4 through 6 several times. You should not get any errors.
Keywords: kberrmsg kbwinsock kbapi kbnetwork kbprb kbctrl KB173619