Dim Picorig As Image = Image.FromFile("c:\fax.tif")
        Dim blankimg As New Bitmap(Picorig.Width, Picorig.Height + 16) ' 
        ' Grössers Bild erstellen
        Using g As Graphics = Graphics.FromImage(blankimg) ' Das leere Bild als 
        ' Graphics laden
            g.FillRectangle(Brushes.White, 0, 0, blankimg.Width, _
              blankimg.Height) ' Alles weiss machen
            g.DrawImage(Picorig, 16, 32, Picorig.Width, Picorig.Height) 'das 
            ' Fax an den Koordinaten einfügen
        End Using
        'Dim _tmpPic = New Bitmap(New Bitmap(Picorig), Picorig.Width, 
        ' Picorig.Height + 16)
        pic1 = blankimg 'Pic1 ist das eigentliche Bild 
 
        Dim t As Graphics = Graphics.FromImage(pic1) ' Und den Text einfügen
        t.DrawString("Testtext123", New Font("Tahoma", 14, FontStyle.Regular, _
          GraphicsUnit.Pixel), Brushes.Black, New PointF(10, 10))
 
        pic1.Save("c:\faxout.tif")