Public Class Pic
    Implements IDisposable
 
    Private _bytes() As Byte
    Private _ms As IO.MemoryStream
    Private _bp As Bitmap
 
    Public Property name As String
    Public Property created As Date
 
    Public ReadOnly Property Value As Bitmap
        Get
            Free()
            _ms = New IO.MemoryStream(_bytes)
            _bp = New Bitmap(_ms)
            Return _bp
        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
 
#Region "IDisposable Support"
 
    Public Sub Free()
        If Not _ms Is Nothing Then _ms.Close() ': _ms = Nothing
        If Not _bp Is Nothing Then _bp.Dispose() ': _bp = Nothing
    End Sub
 
    Private disposedValue As Boolean
    Protected Overridable Sub Dispose(disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
                Free()
                _bytes = Nothing
            End If
        End If
        Me.disposedValue = True
    End Sub
 
    Public Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region
 
End Class