Dim DataFile As String
Dim LenFile As Long
Dim Envio As Boolean

Private Sub Form_Load()
Envio = False
End Sub

Private Sub WS_DataArrival(index As Integer, ByVal bytesTotal As Long)
On Error Resume Next
Dim datos As String
Dim sData() As String

WS(index).GetData datos
sData = Split(datos, "|")

If Envio = True Then
   DataFile = DataFile & datos
   If Len(DataFile) = LenFile Then
       Open "C:\capture2.jpg" For Binary As #1
           Put #1, , DataFile
       Close #1
       DataFile = ""
       MsgBox "El Fichero se a Enviado Correctamente"
       'Ahora lo tendrias q mostrar C:\capture2.jpg en un picture
       Envio = False
   End If
End If

Select Case sData(0)
Case "Tam:"
LenFile = sData(1)
Envio = True
ws.SendData "SendFile"

'La peticion de imagen ponla dentro del data arrival con la palabra q tu kieras
Private Sub ws_Connect()
ws.SendData "Tam:|" & FileLen("C:\Prueba.txt")
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim sData() As String
Dim datos As String
Dim Send As String

ws.GetData datos
sData = Split(datos, "|")

Select Case sData(0)
Case "SendFile"
'Aki pones el code para q haga la foto y q se guarde en C:\capture.jpg
      Open "C:\capture.jpg" For Binary As #1
        Send = Space(LOF(1))
        Get #1, , Send
      Close #1
ws.SendData Send
End If

End Sub

Private Sub ws_Connect()
ws.SendData "Tam:|" & FileLen("C:\Prueba.txt")
End Sub