Se ti puo aiutare questo è il codice che ho scritto io:
Logicamente dovrebbe funzionare, in pratica non funziona e non capisco il motivo!!! Te forse ci capisci qualche cosa il più e magari ti aiuta:


Client:
----------------------------------------------------
Private Sub Form_Load()
Winsock1.Connect (Winsock1.LocalHostName)
Dim dati As Long
End Sub

Private Sub Winsock1_Close()
Winsock1.Close
Winsock1.Connect (Winsock1.LocalHostName)
End Sub

Private Sub Winsock1_Connect()
MsgBox "connesso"
Open "c:\immagine1.bmp" For Binary As #1
Do While Not EOF(1)
Get #1, , dati
Winsock1.SendData dati
Loop
Close #1
End Sub
-----------------------------------------------------------

Server:
------------------------------------------------------------

Private Sub Form_Load()
Open "c:\ricevuta.bmp" For Binary As #1
Dim dati As Byte
Winsock1.Listen
End Sub

Private Sub Form_Terminate()
Winsock1.Close
Close #1
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData (dati)
Put #1, , dati
End Sub

------------------------------------------------------------

PS: Grazie mille per l'aiuto che mi stai dando!!!
Ah, approposito ma il tuo numero icq è sbagliato??? Il mio è 171012994