Private Sub DoDownloadData(ByVal sURL As String, ByVal pb As PictureBox)
        Using dWeb As New Net.WebClient
            AddHandler dWeb.DownloadDataCompleted,
            Sub(s As Object, e As Net.DownloadDataCompletedEventArgs)
                Using ms As New IO.MemoryStream(e.Result)
                    ' Download Ergebnis in PictureBox anzeigen
                    pb.Image = Image.FromStream(ms)
                End Using
            End Sub
            dWeb.DownloadDataAsync(New Uri(sURL))
        End Using
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist