Dim InputStream1 As InputStream
InputStream1 = File.OpenInput(File.DirAssets, "yelloe icone empty - copy.png")
Dim OutputStream1 As OutputStream
OutputStream1.InitializeToBytesArray(1000)
File.Copy2(InputStream1, OutputStream1)
Dim Buffer() As Byte 'declares an empty array
Buffer = OutputStream1.ToBytesArray
'write the image to the database at position "img3"