deyvyd

Ayuda en este problema. Es sen
17 de Marzo del 2004
Quiero recibir una imagen desde el usuario i con conexion winsock.

Pongo el siguiente codigo para que se me muestre la imagen en un PictureBox:

Private Sub Form_Load()
Winsock1.Listen

End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim a As Variant
Winsock1.GetData a
a = Picture1.Picture
End Sub

Gracias...