Salvare picturebox in DB Access in VB6

[LMondi]

Ciò che non ho capito è quello che ottieni dall'elaborazione "codice di 13 cifre in una textbox ("txtEAN13"), clicco su un pulsante ("cmdCrea"), e la picturebox("lavagna") mi visualizza il grafico del codice a barre" è un'immagime Bitmap?
Se non è così la devi trasformare in Bitmap.

Ad esempio se fosse pic:

Private Sub Command1_Click()
      
      Pic1.AutoSize = -1

'Carica l'immagine nella PictureBox
      Pic1.Picture = LoadPicture("D:\Elaborazioni\....\ICONE\Printer2.ico")
      Pic2.Picture = LoadPicture("D:\Elaborazioni\.....\ICONE\Paper.ico")
      'Pic3.Picture = LoadPicture
'e la salva nei formati BMP e JPG
      
      SavePicture Pic1.Image, ("D:\Elaborazioni\.....\ICONE\Printer2.bmp")
      SavePicture Pic2.Image, ("D:\Elaborazioni\.....\ICONE\Paper.bmp")
      'SavePicture Pic3.Image, ("D:\Elaborazioni\VBEsempi\IconeNelMenu\IconeProva\DispIco.bmp")
   .....   
      'SavePicture Picture1.Image, "prova.jpg"
End Sub