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 > 4000 Or
                Img.Width < 10 Or Img.Width > 4000 Then
                Throw New ArgumentException("Ungeeignete Bildgröße")
            End If
 
            'Neue Bitmap erstellen
            Using NewBitmap As New System.Drawing.Bitmap _
                            (Img, Img.Width, Img.Height), _
                Graphic As System.Drawing.Graphics = _
                  System.Drawing.Graphics.FromImage(NewBitmap)
 
                'String auf Bild zeichnen
                Graphic.DrawString(Text, Font, Brush, Position)
 
                'Neues Bild speichern
                NewBitmap.Save(NewImage, Format)
            End Using
        End Using
 
    End Sub