Dim TextFont As New System.Drawing.Font("Tahoma", 10, _
              FontStyle.Bold)
            Dim TextBrush As New System.Drawing.SolidBrush(Color.White)
 
            Dim pic As New Drawing.Bitmap("Wallpaper.jpg")
 
            Dim bmp As System.Drawing.Graphics
            bmp = Graphics.FromImage(pic)
 
            bmp.DrawString(wString, TextFont, TextBrush, 810, 130)
            pic.Save("Wallpaper_modified.jpg")