Set(ByVal value As System.Drawing.Bitmap)

Dim loStream As New MemoryStream()

if value IsNot Nothing Then

Me.CurrentRow.Item("Immagine") = loStream.ToArray()

Else

Me.CurrentRow.Item("Immagine") = DBNull.Value

End If

End Set

    '-- See if there is an image to return
    If cct_Signature.Length = 0 Then
        '-- Create a new image appropriatly sized
        r = New Bitmap(Preferences.POSPreferences.SignatureImageWidth, Preferences.POSPreferences.SignatureImageHeight)

        '-- Just clear the image to a white canvas
        Dim g As Graphics = Graphics.FromImage(r)
        g.Clear(Color.White)

        '-- Clean Up
        g.Dispose()
    Else
        '-- Create a memory stream to house the image
        Dim mem As New System.IO.MemoryStream

        '-- Write the signature bytes to a memory stream
        mem.Write(cct_Signature, 0, cct_Signature.Length)
        mem.Seek(0, SeekOrigin.Begin)
        r = New Bitmap(mem)

        '-- Clean Up
        mem.Dispose()
    End If

    '-- Return the results
    Return r
End Get
End Property