Inserisci più immagini

Public Class Form1

    Dim path As String = "percorso cartella..."
    Dim mia_bitmap As Bitmap

    Private Sub aggiungi_sfondo() Handles Button1.Click
        mia_bitmap = Image.FromFile(path & "\sfondo.jpg")
        PictureBox1.Image = mia_bitmap
    End Sub

    Private Sub aggiungi_testo() Handles Button2.Click
        Dim testo As String = "asdfghjkl"
        Dim gr As Graphics = Graphics.FromImage(mia_bitmap)
        Dim mio_font = New System.Drawing.Font("", 50, FontStyle.Regular)
        gr.DrawString(testo, mio_font, Brushes.Red, 20, 20)
        PictureBox1.Refresh()
    End Sub

    Private Sub aggiungi_barcode() Handles Button3.Click
        Dim barcode As Image = Image.FromFile(path & "\barcode.png")
        Dim gr As Graphics = Graphics.FromImage(mia_bitmap)
        gr.DrawImage(barcode, 100, 100)
        PictureBox1.Refresh()
    End Sub

    Private Sub salva_immagine() Handles Button4.Click
        PictureBox1.Image.Save(path & "\test.jpg")
    End Sub

End Class