intanto trovi quanto è lungo il file....
diciamo...........

LnFile = FileLen(TuoFile.jpg)

poi.....

Dim buffile2 As String
If LnFile > 8192 Then
nLoop = Fix(LnFile / 8192) 'totale +
nRemain = LnFile Mod 8192 'rimanenza
Else
nLoop = 0 'se + corto di 8192 o =
nRemain = LnFile 'questa è la lunghezza del file
End If

poi..... apri il file

Open TuoFile.jpg For Binary As #1
For Cn = 1 To nLoop
Get #1, , buffile2
WSCK(1).SendData buffile2 'stai inviando 8192 bytes alla volta
'al ricevente che ricostruisce il
' pacchetto in output
DoEvents
Next

poi..... per la rimanenza del file, se c'è, pensaci un pò sù. Ora non dovrebbe essere difficile fare da solo.

If nRemain > 0 Then
?????? 'coraggio......... 'quì invii la rimanenza, ovvero l'ultimo
'pacchetto di bytes
endif

close #1




ciao