allora dalle mie prove senza risultato qualcosa si muove ma credo di essere ancora lontano:
praticamente si mi crea un file .bmp da 8kb ma l' immagine oltre ad essere non valida è anche inferiore al peso reale di circa 1 mega, dove sbaglio?

codice:
Private Sub Command2_Click()
Dim immagine() As Byte
Open "C:\prova.bmp" For Binary As #1
ReDim immagine(0 To LOF(1) - 1)
Get #1, , immagine
Close #1
Winsock1.SendData immagine


codice:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim immagine() As Byte
Winsock1.GetData immagine
Open App.Path & "\imm.bmp" For Binary Access Write As #1
Put #1, , immagine()
Close #1
DoEvents
Image1.Picture = LoadPicture(App.Path & "\imm.bmp")
Kill (App.Path & "\imm.bmp")
End Sub