统一为800,就不帮你做了;右下角的,参考下面代码
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()