Dim zeile1 As String = "Zeile 1 bla bla bla BlaBLABLA"
        Dim zeile2 As String = "Zeile 2 bla"
        Dim g As Graphics = Me.CreateGraphics
        Dim sizeZeile1 As SizeF = g.MeasureString(zeile1, Me.Font)
        Dim sizeZeile2 As SizeF = g.MeasureString(zeile2, Me.Font)
        Dim zeile2Pos As Integer = sizeZeile1.Width / 2 - sizeZeile2.Width / 2
        Dim Leerzeichenwidth As Integer = g.MeasureString(" ", Me.Font).Width
        Dim anzahlDerLeerzeichen As Integer = zeile2Pos / Leerzeichenwidth
        For x As Integer = 0 To anzahlDerLeerzeichen
            zeile2 = " " & zeile2
        Next
        MsgBox(zeile1 & vbCrLf & zeile2)