Public Structure Images
    Public Sub New(ByVal ImagePath As String)
        Me.Image = Image.FromFile(ImagePath)
        Me.ImagePath = ImagePath
    End Sub
    Public Image As Image
    Public ImagePath As String
End Structure

        Dim a As New ArrayList
        a.Add(New Images("C:\Fächer.bmp"))
        a.Add(New Images("C:\Feder.bmp"))
        a.Add(New Images("C:\Kaffeetasse.bmp"))
        For Each i As Images In a
            Me.PictureBox1.Image = i.Image
            i.Image.Save(i.ImagePath) ' usw ....
        Next