Assuming the clients are on the same network you probably want to send the data via broadcast datagram rather than a TCP stream to avoid swamping the network.
You will need to reassemble the packets at each client before displaying the picture.
Example:
Code:
Type PacketHeader
ImageID as Integer
TotalFileSize as Long
DataOffset as Long
End Type
Dim byImageBuffer() as byte
Function ReceivePacket(byPacket)
Dim PackHeader as PacketHeader
' Get Packet header from packet into PackHeader
CopyMemory(PackHeader, byPacket, len(PackHeader))
' If first packet in image allocate buffer to correct size
if (isFirstPacket) ReDim byImageBuffer(PackHeader.TotalFileSize)
'Copy data into buffer at correct position
CopyMemory(VarPtr(byImageBuffer) + PackHeader.DataOffset, VarPtr(byPacket) + len(PackHeader), len(byPacket) - len(PackHeader))
End Function