Private Sub Form_Load()
winsock1.connect ip,port
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 "impossible de se connecter"
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData ckoi, vbString
End Sub
é tu recoi dans la variable ckoi ben ce ke tu recois dans le socket
---------------
Virtual 3D WorlD