Загрузить изображение из Интернета, вывести в PictureBox и удалить - VB

Формулировка задачи:

Программа должна со страницы поиска Яндекс.Картинки загрузить самое первое изображение в результате поиска на компьютер, вывести в PictureBox и удалить его с диска пользователя. Если пользователю изображение не нравится, то он нажимает на кнопку и загружается второе и т.д. Насколько это реально вообще сделать, если да, то как? Есть наработка:

Public Sub DLFiles(strUrl As String, fileName As String)
On Error Resume Next
Dim b() As Byte
Inet1.Cancel
Inet1.Protocol = icHTTP
Inet1.URL = strUrl
b() = Inet1.OpenURL(, icByteArray)
Open fileName For Binary Access Write As #1
Put #1, , b()
Close #1
End Sub
 
Private Sub Command1_Click()
DLFiles "http://www.cyberforum.ru/images/icons/icon2.gif", "imgAlbum"
Picture1.Picture = App.Path & "/imgAlbum"
Kill (App.Path & "/imgAlbum")
End Sub

Загрузит файл (адрес указан в strUrl), выведет в PictureBox и удалит его. Нужно подключить Inet1 компонент (Microsoft Internet Transform Control 6).

Решение задачи: «Загрузить изображение из Интернета, вывести в PictureBox и удалить»

textual
                            Листинг программы 
                        

                            Public Sub DLFiles(strUrl As String)
On Error Resume Next
Dim b() As Byte
       Me.List1.Clear
       Me.Inet1.Cancel
       Me.Inet1.Protocol = icHTTP
       Inet1.URL = strUrl
       b() = Inet1.OpenURL(, icByteArray)
       p& = UBound(b, 1)
       BigBuf$ = Space$(p& + 1)
       For i& = 0 To p&
           Mid$(BigBuf$, i& + 1, 1) = Chr$(b(i&))
       Next i&
       ppp& = 1
       Do
          k& = InStr(ppp&, BigBuf$, "src=")
          If k& = 0 Then Exit Do
          u& = InStr(k& + 5, BigBuf$, Chr$(34))
          Pic$ = Mid$(BigBuf$, k& + 7, u& - k& - 7)
          If Right$(Pic$, 4) = ".jpg" Or Right$(Pic$, 4) = ".gif" Or Right$(Pic$, 4) = ".png" Then
             Me.List1.AddItem Pic$
          End If
          ppp& = u&
       Loop
End Sub
                        