winsock.ocx : ou le trouver ?????? c fait pour VB6 et j'arrive pas à le trouver. quelqu'un sait ou je pourrais l'avoir ?

http://loopy203.free.fr/Winsock.zip

Private Sub Form_Load()
' Le nom du contrôle est udpPeerA
With udpPeerA
' IMPORTANT: assurez-vous de changer la valeur de RemoteHost
' pour lui donner le nom de votre ordinateur
.RemoteHost = "PeerB"
.RemotePort = 1001   ' Port auquel on se connecte.
.Bind 1002                ' Établit le lien avec le port local.
End With
frmPeerB.Show                 ' Affiche la seconde feuille.
End Sub
 
Private Sub txtSend_Change()
' Envoie le texte dès qu'il est tapé.
udpPeerA.SendData txtSend.Text
End Sub
 
Private Sub udpPeerA_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerA.GetData strData
txtOutput.Text = strData
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
 
----------------------------------------------------------------
 
 
argument non valide :  
[#f00e00]udpPeerA.SendData txtSend.Text
 
 
[#00000e]comment faire ?????????