<Serializable()> _
Public Class PicList
 
    Dim _folder As String
    Dim pics As New List(Of Pic)
 
    Public Sub New(ByVal JPEG_Folder As String)
        Dim jpgs() As String = IO.Directory.GetFiles(JPEG_Folder, "*.jpg")
        For i As Integer = 0 To jpgs.Length - 1
            pics.Add(New Pic(jpgs(i)))
        Next i
        _folder = JPEG_Folder
    End Sub
 
    Public ReadOnly Property Count As Integer
        Get
            Return pics.Count
        End Get
    End Property
 
    Public ReadOnly Property Folder As String
        Get
            Return _folder
        End Get
    End Property
 
    Public ReadOnly Property GetPic(ByVal index As Integer) As Pic
        Get
            Return pics(index)
        End Get
    End Property
End Class
 
 
<Serializable()> _
Public Class Pic
 
    Private _bytes() As Byte
    Private _ms As IO.MemoryStream
 
    Public Property name As String
    Public Property created As Date
 
    Public ReadOnly Property Value As Bitmap
        Get
            If Not _ms Is Nothing Then _ms.Close()
 
            _ms = New IO.MemoryStream(_bytes)
            Return New Bitmap(_ms)
        End Get
    End Property
 
    Public Sub New(ByVal JPEG_File As String)
        _bytes = IO.File.ReadAllBytes(JPEG_File)
        name = IO.Path.GetFileName(JPEG_File)
        created = New IO.FileInfo(JPEG_File).CreationTime
    End Sub
End Class