Dim fontsize As Integer = numericUpDown1.Value 'Ich hab da ein 
' NumericUpDown-Feld verwendet
Dim g As Graphics = Me.CreateGraphics 
g.Clear(Me.BackColor)
Dim f As New Font("Courier New", fontsize)
Dim sText As String = "Hallo wie geht es dir 21.07.1990"
Dim iX, iY As Integer
For i As Integer = 0 To sText.Length - 1
	TextRenderer.DrawText(g, sText.Chars(i), f, New Point(iX,iY), Color.Black)
	iX += TextRenderer.MeasureText(sText.Chars(i),f).Width - (0.7 * fontsize)
Next
g.Dispose()