Загрузить изображение из Интернета, вывести в 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 "https://www.cyberforum.ru/images/icons/icon2.gif", "imgAlbum"
Picture1.Picture = App.Path & "/imgAlbum"
Kill (App.Path & "/imgAlbum")
End Sub

Picture1.Picture = App.Path & "/imgAlbum"

Picture1.Picture = LoadPicture(App.Path & "/imgAlbum")

Private Sub Command1_Click()
 
    DLFiles "http://yandex.st/images-thumbs/_/gAMnUZsuUu9X6ZamDhm6ZA5EgM.jpg", App.Path & "\111.jpg"
    Picture1.Picture = LoadPicture(App.Path & "\111.jpg")
    Kill App.Path & "\111.jpg"
 
End Sub

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