Private Sub CmdSend_Click ()
Sckclient. SendData publishes the event TxtSend. Text

End Sub

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

End Sub

Private Sub Form_Load ()

With Sckclient
The RemoteHost="127.0.0.1"
RemotePort=1002
LocalPort=1001
The Bind 1001
End With
End Sub

Private Sub Sckclient_DataArrival (ByVal bytesTotal As Long)
Dim MyStr As String
Sckclient. GetData MyStr
TxtGet. Text=TxtGet. Text & amp; CRH (10) & amp; CRH (13) & amp; MyStr

End Sub
This is according to the book I write a UDP client program, why one click send a VB "real-time anomaly '10054' connection reset by the remote end", I click debug shows Sckclient GetData MyStr this line is yellow, what is the meaning of this, where there is a problem,