[VB6] Winsock: Invio immagine

[x69asterix]

quindi comunque nel senddata il codice è corretto?

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()