Voila, je travaille sur une application de partage d'image, mais je bloque au niveaux du transfert (par winsock), voila mon code :
FROM1 :
Dim a() As Byte
Private Sub Timer1_Timer()
a = PictureToArray(Picture1.Picture())
b.SendData a
End Sub
FORM2 :
Dim Data() As Byte
Private Sub a_DataArrival(ByVal bytesTotal As Long)
a.GetData Data
ArrayToPicture Data, Picture2.Image
Picture2.Refresh
End Sub
Voila, les fonction PictureToArray et ArrayToPicture sont des fonction qui permette de TRANSFORMER L'IMAGE D'UNE PICTUREBOX EN UN TABLEAU DE BYTES et inversement.