Prova con queste modifiche
codice: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()

