Dim img As Image = getimage("d:\test.jpg") Dim g As Graphics = Graphics.FromImage(img) Dim fnt As New Font("宋体",16) Dim msg As String = "I Like Foxtable" Dim sz As Object = g.MeasureString(msg, fnt) g.DrawString(msg,fnt,Brushes.Red, img.Width - sz.Width - 10, Img.Height - sz.Height - 10) img.Save("d:\test.jpg") g.Dispose()