imputStream from a picture background

Sub Globals
Dim BitmapFlash As Bitmap

   Cursor1 = SQL1.ExecQuery("SELECT numeroBoite, nomSociete, nomContact, email, qrcode FROM clients where id = " & id)
         For i = 0 To Cursor1.RowCount - 1
         Cursor1.Position = i
         txtNumeroBoite.text = Cursor1.GetString("numeroBoite")
         txtRaisonSociale.text = Cursor1.GetString("nomSociete")
         txtContact.text = Cursor1.GetString("nomContact")
         txtEmail.text =  Cursor1.GetString("email")
         Dim InputStreamFlash As InputStream
         Dim Buffer() As Byte 'declare an empty byte array
          Buffer = Cursor1.GetBlob("qrcode")
          
          InputStreamFlash.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
    
            
          BitmapFlash.Initialize2(InputStreamFlash)
          InputStreamFlash.Close
         imgFlashCode.SetBackgroundImage(BitmapFlash)
         Next
         Cursor1.Close

Sub sendFlash_Click
   Dim contenuHtml As String
   contenuHtml = "<img src=" & QUOTE & "data:image/png;base64," & BitmapFlash & QUOTE & " />"

   htmlEmail("myMail@mail.com", "Flash code à imprimer de la société : " & txtRaisonSociale.text, contenuHtml)

end sub



Sub htmlEmail (sEmailDestinataire As String, sSujet As String, sContenu As String)

   If Main.gNomCentre = "" OR Main.gSmtp = "" OR Main.gEmail = "" OR Main.gMotDePasse = ""  Then
      ToastMessageShow("Aucun compte email configuré.", True)
      Return
   End If
   
   'Initialisation du smtp
   Dim SMTP As SMTP
   SMTP.Initialize(Main.gSmtp, Main.gPort,  Main.gEmail, Main.gMotDePasse,  "SMTP")
   SMTP.Sender = Chr(34) & Main.gNomCentre & Chr(34) & " <" & Main.gEmail & ">"
    SMTP.UseSSL = Main.gSsl 'Gmail requires SSL.
   SMTP.HtmlBody = True     
   SMTP.To.Add(sEmailDestinataire)
    SMTP.Subject = sSujet
    SMTP.Body = sContenu
  '  SMTP.AddAttachment(File.DirRootExternal, "somefile")
    SMTP.Send
   
End Sub