Public Class Form1
    Dim elenco_url As New ArrayList
    Dim matrice As New List(Of Image)

    Private Sub carica_url() Handles Button2.Click
        elenco_url.Clear()
        elenco_url.Add("http://www.dotnethell.it/img/emo1.gif")
        elenco_url.Add("http://www.dotnethell.it/img/emo2.gif")
        elenco_url.Add("http://www.dotnethell.it/img/emo3.gif")
        elenco_url.Add("http://www.dotnethell.it/img/emo4.gif")
        'eccetera
        MsgBox("fatto!")
    End Sub

    Private Sub Scarica_immagini() Handles Button3.Click
        matrice.Clear()
        For a = 0 To elenco_url.Count - 1
            matrice.Add(getimage(elenco_url(a)))
        Next
        MsgBox("fatto!")
    End Sub

    Private Sub avvia_sequenza() Handles Button1.Click
        CustomPbox1.avvio(matrice)
    End Sub

    Function getimage(ByVal url As String) As Image
        Using w As New Net.WebClient
            Using s As New IO.MemoryStream(w.DownloadData(url))
                Return Image.FromStream(s).Clone
            End Using
        End Using
    End Function

End Class