'Se neceseitan 3 command button, y un objeto de imagen (Image1)
Private Sub Command1_Click()
Wk.Connect "localhost", 80    'Conectamos al host
End Sub
 
Private Sub Command2_Click()
Wk.SendData "GET /juacker.jpg HTTP/1.1" & vbCrLf & _        'Hacemos la peticion de la image
            "Host: localhost" & vbCrLf & _
            "Connection: keep-alive" & vbCrLf & vbCrLf
End Sub
 
Private Sub Wk_DataArrival(ByVal bytesTotal As Long)
Dim Imagen$, Imagen2$, Headers   'Declaramos las variables
Wk.GetData Imagen
If InStr(1, Imagen, vbCrLf & vbCrLf, vbTextCompare) <> 0 Then      'Si en la primera peticion se nos envia las cabeceras del servidor que indican que todo va bien, entonces dividimos lo que nos envia en dos partes, la primera que son las cabeceras del servidor, y la segunda que es una parte de la imagen.
    Headers = Split(Imagen, vbCrLf & vbCrLf, 2)
    Imagen2 = Headers(1)     'Es la parte de la imagen, sin las cabeceras del servidor
Else
    Imagen2 = Imagen       'Si no se estan enviando las cabeceras, entonces asignamos a imagen2 el valor de imagen. Recordamos que el servidor se conecta varias veces a nosotros para enviarnos el contenido del archivo. si es una imagen de una mega, no nos manda la mega al tope, nos la manda por pedazos, por eso tenemos que poner este codigo
End If
Open App.Path & "\imagen.jpg" For Binary Access Write As #1      'Abrimos el archivo imagen.jpg, puede ser cualquier otro tipo de archivo, en modo binario
Put #1, LOF(1) + 1, Imagen2       'escribimos el contenido al final del archivo del valor que nos ha enviado el servidor
Close #1
End Sub
 
Private Sub Command3_Click()
Image1.Picture = LoadPicture(App.Path & "\imagen.jpg")      'Cargamos la imagen que hemos pedido
End Sub