Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
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)
End Sub
Private Sub Winsock1_SendComplete()
End Sub
Private Sub Winsock1_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)