quindi comunque nel senddata il codice è corretto?

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