Dim Picorig As Image = Image.FromFile("c:\fax.tif")
        Dim _tmpPic = New Bitmap(New Bitmap(Picorig), Picorig.Width, _
          Picorig.Height + 16)
        pic1 = _tmpPic
         Dim g As Graphics = Graphics.FromImage(pic1)
        g.DrawString("Testtext123", New Font("Tahoma", 14, FontStyle.Regular, _
          GraphicsUnit.Pixel), Brushes.Black, New PointF(10, 10))
        pic1.Save("c:\faxout.tif")