Dim ICO As Image
ICO = ImageIco ' immagine tampone
Dim out As OutputStream
out.InitializeToBytesArray(0)
ICO.WriteToStream(out)
Dim Buffer() As Byte
Buffer = out.ToBytesArray
out.Close
sqlite.InitializeSQLite(File.DirApp,"data.sqlite", False)
sqlite.ExecNonQuery(query)
sqlite.ExecNonQuery2("UPDATE item SET icon = ? WHERE id = '" & id & "' AND userid=?", Array As Object(Buffer,Main.global.idlogin))