Dim lol As Integer
Dim frago As Integer
Dim goblin As String
lol = FreeFile
frago = 8192
goblin = "c:\Juazcp.jpg"
Open goblin For Binary As #lol
Do While Not EOF(lol)
camun = Input(frago, #lol)
sck.SendData camun
DoEvents
Loop
Close #lol
eso para el server, ahora en el cliente: recibe esos datos y metelos en un nuevo archivo y tendra tú screenshot.