Private Sub TextOnImage(ByVal OldImage As String, ByVal NewImage As String, _
                           ByVal Text As String, _
                           ByVal Format As Imaging.ImageFormat, ByVal Font As _
                           Font, ByVal _
                           Color As Color, ByVal Position As Point)
 
        Using Img As Image = System.Drawing.Image.FromFile(OldImage), _
            Brush As New SolidBrush(Color)
 
            If Img.Height < 10 Or Img.Height > 12000 Or
                Img.Width < 10 Or Img.Width > 12000 Then
                Throw New ArgumentException("Ungeeignete Bildgröße")
            End If
 
            'Neue Bitmap erstellen
            Using Graphic As System.Drawing.Graphics = _
                  System.Drawing.Graphics.FromImage(Img)
 
                'String auf Bild zeichnen
                Graphic.DrawString(Text, Font, Brush, Position)
 
                'Neues Bild speichern
                Img.Save(NewImage, Format)
            End Using
        End Using
 
    End Sub