[VB6] Winsock: Invio immagine

[x69asterix]

allora diciamo che ci sono riuscito, ma mi resta di capire come chiudere il file:

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
   If Winsock1.State <> sckClosed Then Winsock1.Close
   Winsock1.Accept requestID
   Open App.Path & "\imm.bmp" For Binary Access Write As #1
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim immagine() As Byte
Winsock1.GetData immagine

Put #1, , immagine()

End Sub