scrivere testo su immagine

[Kahm]

stto tentando di scrivere una stringa su una immagine
il codice che uso per ora non funziona e non capisco il motivo
cosa sbaglio?
il codice non da errore, ma non succede niente all'immagine
la label non compare ne nella picturebox, ne quando salvo su file

   PictureBox1.Image = Image.FromFile(FilePath)

        Dim testo As String = "Testo in sovraimpressione"
        Dim grandezzaTesto As SizeF
        Dim temp As Graphics
        Dim myFont As New Font("Tahoma", 10, FontStyle.Regular)


        Dim xLocation, yLocation As Single

        temp = PictureBox1.CreateGraphics()

        grandezzaTesto = temp.MeasureString(testo, myFont)
        xLocation = (PictureBox1.Image.Width - grandezzaTesto.Width)
        yLocation = (PictureBox1.Image.Height - grandezzaTesto.Height)

        temp.DrawString(testo, myFont, Brushes.Lime, xLocation, yLocation) 'LIME

        temp.Save()
        PictureBox1.Image.Save(FilePath)

[alka]

Linguaggio e versione?
Regolamento?

[oregon]

Prova con queste modifiche

        Dim testo As String = "Testo in sovraimpressione"

        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage   ' Se necessario

        PictureBox1.Image = Image.FromFile(FilePath)
        Dim g As Graphics = Graphics.FromImage(PictureBox1.Image)
        Dim myFont As New Font("Tahoma", 10, FontStyle.Regular)

        Dim grandezzaTesto As SizeF = g.MeasureString(testo, myFont)
        Dim xLocation As Single = PictureBox1.Image.Width - grandezzaTesto.Width
        Dim yLocation As Single = PictureBox1.Image.Height - grandezzaTesto.Height

        g.DrawString(testo, myFont, Brushes.Lime, xLocation, yLocation)
        g.Save()
        PictureBox1.Image.Save(FilePath)

        g.Dispose()