' Neues Font-Objekt erzeugen 
        Dim Normalschrift = New Font("MS Reference Sans Serif", 10, _
          FontStyle.Regular)
        Dim FettSchrift = New Font("MS Reference Sans Serif", 10, _
        FontStyle.Bold)
 
        ' Einen Pinsel definieren (hier: einfarbig schwarz) 
        Dim Schwarz As SolidBrush = New SolidBrush(Color.Black)
 
        ' Ein neues Bild deklarieren
        Dim picReport As New Bitmap(583, 366)
 
        ' Eine neue Grafikinstanz deklarieren
        Dim objGraph As Graphics = Graphics.FromImage(picReport)
 
        With objGraph
 
            ' Kantenglättung für die Grafikausgabe festlegen 
            .SmoothingMode = Drawing.Drawing2D.SmoothingMode.HighQuality
            .TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit
 
            ' Text hinzufügen
            .DrawString(Lieferschein.Anrede, Normalschrift, Schwarz,135, 69)
            .DrawString("KD-Nr: " & Lieferschein.Kundennummer, FettSchrift, _
              Schwarz, 123, 56)
        End With