' Datei senden
Dim F As Integer
Dim sBuffer As String
 
F = FreeFile
Open "c:\test.jpg" For Binary As #F
sBuffer = Space$(Lof(F))
Get #F, , sBuffer
Close #F
 
' Inhalt häppchenweise senden
While Len(sBuffer) > 0
  Winsock1.SendData Left$(sBuffer, 1024)
  sBuffer = Mid$(sBuffer, 1025)
Wend

' Daten empfangen
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim sData As String
  Dim F As Integer
 
  ' String abholen
  Winsock1.GetData sData, vbString
 
  F = FreeFile
  Open "c:\test.jpg" For Binary As #F
  Seek #F, LOF(F) + 1
  Put #F, , sData
  Close #F
End Sub